Encontrar dato y copiar valor de textbox según el mes
Vengo a pedir vuestra ayuda que no puedo solucionar:
Tengo un formulario con 2 combobox y 7 textbox. El combobox1 tiene el nombre de una persona. El combobox2 tiene el mes del año. Los textbox tienen información diferente. Además tengo una Hoja de excel llamada "Hoja3", donde los nombres de las personas están en la columna E, y los meses (Enero (rangeT:Z), FEBRERO (range (AA:AG), MARZO (rango(AH:AN), y así sucesivamente). Quiero hacer una macro que me busque el nombre de la persona en la hoja3, luego se ubique en el rango del mes (según el combobox2) y me copie los datos de los textbox en ese rango. Ayuda amigos.
1 Respuesta
H o l a:
Podrías enviarme tu archivo para ver cómo están los datos y así realizar las búsquedas para poner la información.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Cpc Julio Pinedo Reategui” y el título de esta pregunta.
Estimado dante, te acabo de enviar el archivo... Gracias de antemano
H o l a:
Te anexo la macro
Private Sub CommandButton1_Click()
'Por.Dante Amor
If ComboBox1 = "" Then
MsgBox "Selecciona el nombre", vbCritical, "COPIAR VALORES"
ComboBox1.SetFocus
Exit Sub
End If
If ComboBox2 = "" Then
MsgBox "Selecciona el mes", vbCritical, "COPIAR VALORES"
ComboBox2.SetFocus
Exit Sub
End If
If Not IsDate(TextBox1) Then
MsgBox "Fecha inválida", vbCritical, "COPIAR VALORES"
TextBox1.SetFocus
Exit Sub
End If
'
If IsNumeric(TextBox2) Then t2 = CDbl(TextBox2) Else t2 = TextBox2
If IsNumeric(TextBox3) Then t3 = CDbl(TextBox3) Else t3 = TextBox3
If IsNumeric(TextBox4) Then t4 = CDbl(TextBox4) Else t4 = TextBox4
'
Set h = Sheets("Hoja3")
Set b = h.Columns("D").Find(ComboBox1, lookat:=xlWhole)
If Not b Is Nothing Then
f = b.Row
Set b = h.Rows(2).Find(ComboBox2, lookat:=xlWhole)
If Not b Is Nothing Then
c = b.Column
h.Cells(f, c) = CDate(TextBox1)
h.Cells(f, c + 1) = t2
h.Cells(f, c + 2) = t3
h.Cells(f, c + 3) = t4
'h.Cells(f, c + 4) = TextBox5
'h.Cells(f, c + 5) = TextBox6
'h.Cells(f, c + 6) = TextBox7
ComboBox1 = ""
ComboBox2 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
MsgBox "Registro guardado", vbInformation, "COPIAR VALORES"
Else
MsgBox "El mes no existe", vbExclamation, "COPIAR VALORES"
End If
Else
MsgBox "El nombre no existe", vbExclamation, "COPIAR VALORES"
End If
End Sub':)
':)
