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

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.

Hola Héctor, en primer lugar muchísimas gracias, por tu interés. ( de
verás.)
Tu código : Chapeau!
He estado casi todo el día con esto ...trocitos de código por aquí otros por
allí ( los novatos somos así)
esto es lo que quería:

Modulo1
_______________________________________________
Sub celdas_llenas()
Worksheets("Hoja2").Activate
ActiveSheet.Range("a1").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
-
y. Módulo2
__________________________________________________
Sub formulario()
Dim Nombre As String
Dim Ciudad As String
Dim Edad As Integer
Dim fecha As Date
Call celdas_llenas
Do
Sheets("Hoja1").Select
Nombre = Range("C3")
Ciudad = Range("B2")
Edad = Range("C5")
fecha = Range("D5")
Sheets("Hoja2").Select
With ActiveCell
.Value = Nombre
.Offset(0, 1) = Ciudad
.Offset(0, 2) = Edad
.Offset(0, 3) = fecha
End With
Sheets("Hoja1").Select
ActiveCell.Offset(1, 0).Activate
Mas_datos = MsgBox("Hecho!")
Loop While Mas_datos = vbYes
End Sub
-
En fin...funcionar funciona..puede que encuantres algo rarito.pero ando
esmpezando en esto y doy palos de ciego..por eso agradezco tanto vuestra
ayuda.
Eso que muchas graciasPor hacer de informático y que psicólogo.. :-)

"Héctor Miguel" escribió en el mensaje
news:%23ox%

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.