Al guardar datos de Userform en hoja de excel se guarda cada 2 columnas :c
Tengo un Userform que conecta a otro, el primero guarda los datos normal y el segundo aveces los guarda en la misma fila, pero otras en la siguiente (los datos deben ir en la misma) ¿Alguien tiene alguna solución?
Mi código
Dim contfila As Long
Dim hoja As Worksheets
Set Worksheet = Worksheets("Serigrafía")
contfila = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(contfila, 14).Value = Me.TextBox3.Value
Cells(contfila, 23).Value = Me.ComboBox1.Value
Cells(contfila, 26).Value = Me.boton3.Value
Cells(contfila, 32).Value = Me.boton0.Value
Cells(contfila, 41).Value = Me.ComboBox7.Value
Cells(contfila, 50).Value = Me.ComboBox3.Value
Cells(contfila, 51).Value = Me.ComboBox4.Value
Cells(contfila, 56).Value = Me.ComboBox5.Value
Cells(contfila, 57).Value = Me.ComboBox8.Value
Cells(contfila, 58).Value = Me.TextBox2.Value
Cells(contfila, 71).Value = Me.TextBox1.Value
Me.TextBox3.Value = ""
Me.ComboBox1.Value = ""
Me.boton3.Value = ""
Me.ComboBox3.Value = ""
Me.boton0.Value = ""
Me.ComboBox7.Value = ""
Me.ComboBox4.Value = ""
Me.ComboBox5.Value = ""
Me.ComboBox8.Value = ""
Me.TextBox2.Value = ""
Me.TextBox1.Value = ""
Prueba así
Set Worksheet = Sheets("Serigrafía")
'
With Worksheet
contfila = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(contfila, 14).Value = Me.TextBox3.Value
.Cells(contfila, 23).Value = Me.ComboBox1.Value
.Cells(contfila, 26).Value = Me.boton3.Value
.Cells(contfila, 32).Value = Me.boton0.Value
.Cells(contfila, 41).Value = Me.ComboBox7.Value
.Cells(contfila, 50).Value = Me.ComboBox3.Value
.Cells(contfila, 51).Value = Me.ComboBox4.Value
.Cells(contfila, 56).Value = Me.ComboBox5.Value
.Cells(contfila, 57).Value = Me.ComboBox8.Value
.Cells(contfila, 58).Value = Me.TextBox2.Value
.Cells(contfila, 71).Value = Me.TextBox1.Value
End With
'
Me.TextBox3.Value = ""
Me.ComboBox1.Value = ""
Me.boton3.Value = ""
Me.ComboBox3.Value = ""
Me.boton0.Value = ""
Me.ComboBox7.Value = ""
Me.ComboBox4.Value = ""
Me.ComboBox5.Value = ""
Me.ComboBox8.Value = ""
Me.TextBox2.Value = ""
Me.TextBox1.Value = ""
