me aparece error numero 9 subindice fuera de intervalo en With ThisWorkbook.Sheets("usuarios")
Publicado por LUIGI (1 intervención) el 17/02/2020 23:32:50
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
Private Sub BOTON1_Click()
Dim FilaVacia As Integer
'DONDE SE INGRESAN LOS DATOS'HOJA usuariosWith ThisWorkbook.Sheets("usuarios")
FilaVacia = .Range("B1000").End(xlUp).Row + 1
If Range("B6") = "" Then
.Range("B" & FilaVacia) = 1
Else
.Range("B" & FilaVacia) = .Range("B" & FilaVacia - 1) + 1
End If
.Range("C" & FilaVacia) = Me.TextBox1.Text
.Range("D" & FilaVacia) = Me.TextBox4.Text
.Range("E" & FilaVacia) = HABITACION
.Range("F" & FilaVacia) = Time
.Range("G" & FilaVacia) = Date
.Range("H" & FilaVacia) = Me.TextBox3.Text
End With
End Sub
Valora esta pregunta
0