Copiar datos a una hoja desde un useform

[ruipe]

Hola a todos!!

Estoy intentando copiar datos a una hoja excel desde un useform

No veo que está mal porque otras veces me ha funcionado...Mucchas gracias. os paso el excel por si quereis mirarlo....

Esto es lo que tengo en la parte módulo:

Public Fecha8 As Date
Public Medido8 As String
Public Comentarios2 As String
Public Escribir8 As Single
Dim p As Double

Sub Variacionlongresolucion()

'Tomamos los datos en el formulario
Varlongres.Show

If Escribir8 = 1 Then

'Se copian los datos finales en la hoja correspondiente
   With Sheets("Var longit de la resol espacial")
      'Encuentra la primera fila sin datos
      p = .Range("E" & Rows.Count).End(xlUp).Row + 1
      
      'Se copian los datos
      .Cells(p, 2) = Fecha8
      .Cells(p, 3) = Medido8
      .Cells(p, 4) = Comentarios2
   End With
End If
End Sub

Prueba.rar

[Haplox]

Qué tal @ruipe ,

El problema lo tienes con las celdas combinadas, que arrojan un valor de 2, tal y como tienes p:

p = .Range("E" & Rows.Count).End(xlUp).Row + 1 

Te dejo el archivo con celdas descombinadas y una nueva referencia de p

Prueba