de formulario a una relación....una ayudita..asias

26/04/2004 - 23:54 por Pedro M. Lora | Informe spam
Hola...llevo varios días leyendo por aquí...y he aprendido mucho...muchas
gracias.
permitidme agradecer a los sabios ( todos sabemos quienes son..) que además
de conocimientos nos aportan su paciencia .

La pregusta es la siguiente:
2 hojas...en la primera un formulario ( cualquier cosa...) con un botón
para:
1.- Imprime 2.- copia los datos que desee a la 2 hoja ( por filas ) 3.-
Borra el formulario.

la pregunta es como le digo si p.ej.- la fila 4 ya esta llena..copia en la
5??

Gracias
 

Leer las respuestas

#1 Héctor Miguel
27/04/2004 - 08:30 | Informe spam
hola, Pedro !

2 hojas...en la primera un formulario ... con un boton para:
1.- Imprime 2.- copia los datos que desee a la 2 hoja (por filas) 3.- Borra el formulario.
la pregunta es: como le digo si p.ej. la fila 4 ya esta llena... copia en la 5??



no mencionas si el copiado 'se va' hasta la columna 256 'IV' -estoy suponiendo que si...-
un ejemplo de una [posible] forma de 'averiguarlo' es...
[busca la 'ultima' fila 'en uso' y 'cuenta' las celdas 'libres' ... o... se 'baja' a la siguiente fila] ;)
en un modulo de codigo 'normal' ==Sub CeldasLibres()
Dim Fila As Long, Libres As Integer
With Worksheets("Hoja2")
Fila = .Range("a65536").End(xlUp).Row
ContarLibres:
Libres = Application.CountBlank(.Range(Fila & ":" & Fila))
If Libres = 0 Then
Fila = Fila + 1
GoTo ContarLibres
End If
End With
MsgBox " Fila en uso: " & Fila & vbCr & "Celdas libres: " & Libres, , "Contando..."
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨
¿comentas datos adicionales?
saludos,
hector.

Preguntas similares