Visual Basic - me aparece error numero 9 subindice fuera de intervalo en With ThisWorkbook.Sheets("usuarios")

Life is soft - evento anual de software empresarial
 
Vista:

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 usuarios
With 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder