ERROR 1004 VBA POR OBJETO O APLICACION
Publicado por pepe (1 intervención) el 14/03/2019 08:50:37
Bune alguien querra apoyarme, tengo el siguiente bucle sencillo con do while, se ejecuta pero no hace el bucle
y me dice erro 1004, generando por la aplicacion y el objeto, he estado buscando, pero hallo por que...gracias de antemano.
y me dice erro 1004, generando por la aplicacion y el objeto, he estado buscando, pero hallo por que...gracias de antemano.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub bdtos()
Dim Titulo As String
Dim Nombre As String
Dim Puesto As String
Dim Empresa As String
Dim Direccion As String
ActiveSheet.Range("A2").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
Titulo = InputBox("ENTRA titulo return")
Do While Titulo <> ""
Nombre = InputBox("Nombre", "Ingresa NOMBRE")
Puesto = InputBox("Puesto", "Ingresa PUESTO")
Empresa = InputBox(" Empresa", "Ingresa EMPRESA")
Direccion = InputBox("Direccion", "Ingresa DIRECCIÓN")
With ActiveCell
.Value = Titulo
.Offset(0, 1).Value = Nombre
.Offset(0, 2).Value = Puesto
.Offset(0, 3).Value = Empresa
.Offset(0, 4).Value = Direccion
ActiveSheet.Range("A1").CurrentRegion.Sort key1:=ActiveSheet.Range("A1").Value _
, order1:=xlAscending, Header:=xlYes
End With
Loop
ActiveCell.Offset(1, 0).Activate
Titulo = InputBox("ENTRA titulo return")
End Sub
Valora esta pregunta
0