Como corrijo es error? Error en el método Range de objeto Global, error 1004
El error se da en 'Guardar y copiar los datos en su respectivo lugar, If Range...
Private Sub CommandButton3_Click()
End
End Sub
Private Sub Ingresardatos_Click()
Dim Uf As Long
With Hoja1
Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
Lblconsecutivo.Caption = Uf - 1
.Range("A" & Uf) = Uf - 1
.Range("B" & Uf) = Fecharecibida.Text
.Range("C" & Uf) = Apellidos.Text
.Range("D" & Uf) = Nombre.Text
.Range("E" & Uf) = Identificación.Text
.Range("F" & Uf) = Dx.Text
.Range("G" & Uf) = Procedencia.Text
.Range("H" & Uf) = Fechaenviado.Text
.Range("I" & Uf) = Resultadoinciensa.Text
.Range("J" & Uf) = Fechaprocesada.Text
.Range("K" & Uf) = Resultadohms.Text
.Range("L" & Uf) = MQC.Text
.Range("M" & Uf) = Observaciones.Text
'Guardar y copiar los datos en su respetivo lugar
If Range("Fecharecibida").Value = Empty Or Range("Apellidos").Value = Empty Or Range("Nombre").Value = Empty Or Range("Identificación").Value = Empty Or Range("Dx").Value = Empty Or Range("Procedencia").Value = Empty Or Range("Fechaenviado").Value = Empty Or Range("Resultadoinciensa").Value = Empty Or Range("Fechaprocesada").Value = Empty Or Range("Resultadohms").Value = Empty Or Range("MQC").Value = Empty Or Range("Observaciones").Value = Empty Then
MsgBox ("Datos vacios")
Exit Sub
End If
'Fecharecibido
Range("Fecharecibida"). Copy
Range("B6"). PasteSpecial xlPasteValues
'Apellidos
Range("Apellidos"). Copy
Range("C6"). PasteSpecial xlPasteValues
'Nombre
Range("Nombre"). Copy
Range("D6"). PasteSpecial xlPasteValues
'Identificaciòn
Range("Identificación"). Copy
Range("E6"). PasteSpecial xlPasteValues
'Diagnòstico
Range("Dx"). Copy
Range("F6"). PasteSpecial xlPasteValues
'Procedencia
Range("Procedencia"). Copy
Range("G6"). PasteSpecial xlPasteValues
'Fecha enviado INCIENSA
Range("Fechaenviado"). Copy
Range("H6"). PasteSpecial xlPasteValues
'Resultado INCIENSA
Range("Resultadoinciensa"). Copy
Range("I6"). PasteSpecial xlPasteValues
'Fecha procesado
Range("Fechaprocesada"). Copy
Range("J6"). PasteSpecial xlPasteValues
'Resultado HMS
Range("Resultadohms"). Copy
Range("K6"). PasteSpecial xlPasteValues
'MQC HMS
Range("MQC"). Copy
Range("L6"). PasteSpecial xlPasteValues
'Observaciones
Range("Observaciones"). Copy
Range("M6"). PasteSpecial xlPasteValues
End With
End With
End Sub
Private Sub UserForm_Click()
End Sub
