UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ir a la página : Precedente  1, 2

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 2 de 2.]

26 aclaro el 02/04/14, 11:11 pm

rubito1


perdon tyno ,por las dudas;la seleccion deberia ser:tildar la letra que quiero pasar,es decir,tildo la "l" sola o agrego la "t" etc

27 perdon el 03/04/14, 09:45 pm

rubito1


tyno:estuve revisando la planilla y se ve  hasta yo me maree!!te pedi cualquier cosa,ya que si no hay ningun dato en la columna m no tiene ningun mes adjudicado para pasarlo!!!por ahora dejala asi,la parte de pasar datos(y yo le cambiare las opciones en el codigo si es que debo agregar o sacar una  letra (no quiero estar abusando tanto de tu tiempo)(me refiero a la 2da opcion que te puse con elegir letras)
lo que si,no se a que te referias con la correcion quje hicistes del error que vistes en la de eliminar registros;avisame ;gracias

28 no actualizo sistema el 04/04/14, 08:20 am

rubito1


tyno,no veo(tal vez hay demora en la actualizacion)pero te puse un mensaje diciendo que me equivoque ya que si no hay nada en la columna m no hay mes adonde enviar la info;en principio dejaria asi la parte de "pasar datos"creo que se me ocurrio para esa parte algo bueno;seria asi:ahora manda los datos(copia) a un archivo que se llama resumen entregas anual;haria uno nuevo llamado "resumen produccion anual",el cual seria exactamente igual al otro,solo que se copiarian los datos que tengan solamente la letra "E";lo que si si se puede habria que hacer un "aviso" de que si se "olvidaron" de abrir los 2 archivos,salga un cartel para que lo abran y luego vuelvan a apretar el  boton "copiar datos" y con esto quedaria listo el tema de "copiar datos"te parece bien?

tyno


Hola Rubito.
Te paso el archivo con la modifican en el formulario para eliminar registros.
Con respecto a tema de pasar datos al otro archivo, lo que te puedo sugerir es que intentes resolver este tema ya que esto no es complicado en cuanto a programación, lo que tenes que hacer es fijarte en el archivo anterior las condiciones If Then junto con los operadores And  y Or que utilicé e ir modificandolos hasta dar con el resultado. 
Vos mismo estas  sabiendo cuales son los criterios ¿te acordas del tema Copia y pega datos en otra hoja? donde mostré este código:

Private Sub CommandButton2_Click()
On Error Resume Next
Application.ScreenUpdating = False
For a = 5 To Range("a1000000").End(xlUp).Row
If Cells(a, 40) <> "pasado" Then
If Cells(a, 1) <> "" Or Cells(a, 17) <> "" Then
If Cells(a, 17) = "E" Or Cells(a, 17) = "e" Or Cells(a, 17) = "" Then

Cells(a, 40) = "pasado"
Select Case Month(CDate(Cells(a, 3)))
Case 1: mes = "enero"
Case 2: mes = "febrero"
Case 3: mes = "marzo"
Case 4: mes = "abril"
Case 5: mes = "mayo"
Case 6: mes = "junio"
Case 7: mes = "julio"
Case 8: mes = "agosto"
Case 9: mes = "septiembre"
Case 10: mes = "octubre"
Case 11: mes = "noviembre"
Case 12: mes = "diciembre"
End Select
With Workbooks("RESUMEN ENTREGAS ANUAL").Sheets(mes)
rw = .Range("a1:a1000000").Find("").Row
For b = 1 To 12
.Cells(rw, b) = Cells(a, b)
Next b
End With
End If
End If
End If

Next a
Application.ScreenUpdating = True
End Sub



Bueno, eso que esta en azul son las condiciones mas los operadores que te mencioné, y esas son justamente las instrucciones que deberías ir modificando has hallar el resultado.

https://www.dropbox.com/s/pspq4rp3rwz2buj/Programa%202.zip


Saludos

30 fijate el 06/04/14, 01:23 am

rubito1


hola tyno;fijate que en el de eliminar registro hay que corregir algo;cuando seleccionas varios con el mismo numero,siempre te elimina uno mas de los que seleccionas(una fila mas)(elegis 3 y te borra 4)
con respecto al otro tema ,la iddea era ver si se puede "elegir"entre 2 archivos para copiar (a donde los copiara)acaso debo repetir todo el codigo pero con el nombre del otro archivo?

tyno


Hola Rubito.

Modifica el código del botón eliminar registros del formulario, que te quede así:

Private Sub CommandButton1_Click()
On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With

With Sheets("PLANILLA")
For a = 0 To lista.ListCount
If lista.Selected(a) = True Then
rw = lista.List(a, 9)
.Cells(rw, 1) = "x1x"
End If
Next a
'''''''.Range("a5:be" & Range("a65536").End(xlUp).Row).Sort key1:=.Range("a5"), order1:=1

For a = 0 To .Range("a1000000").End(xlUp).Row
If lista.Selected(a) = True Then
rw = .Range("a4:a1000000").Find("x1x", lookat:=xlPart).Row
If Err.Number = 91 Then Exit For
Cells(rw, 1).EntireRow.Delete
End If
Next a
End With

With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With

Call actualizar_lista
End Sub


Y con respecto a la otra pregunta, pues si, puede servirte el repetir el código, solamente cambias las referencias, es decir el nombre del archivo de destino y así mismo creas un nuevo botón para pasar esos datos a ese otro archivo.

Saludos

32 casi el 06/04/14, 12:32 pm

rubito1


tyno!creo que casi estamos llegando al final;esta super excelente;fijate si podes ver ya que solo me sale un error en una columna que tiene una formula(es la columna "AD"con la cual contabilizo(tal vez no con la mejor formula)los pedidos pendientes o terminados(si hay varios pedidos con el mismo numero solo contabiliza cuando estan todos--aunque x error mio si le pongo la "t" al 1ero de todos igual lo cuenta como terminado;se entiende?ESTO SUCEDE AL ELIMINAR UNO O VARIOS REGISTROSfijate si x lo menos podes solucionarme lo del error ese;y mientras reviso (pruebol)lo de duplicar el codigo como hablamos para "pasar datos)
saludos(buen fin de semana)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 2 de 2.]

Ir a la página : Precedente  1, 2

Permisos de este foro:
No puedes responder a temas en este foro.