FORMULARIO CON EXCEL Y VISUAL
Автор: Profe Jheimmy Becerra
Загружено: 2023-07-26
Просмотров: 181
aqui esta el codigo
Private Sub CommandButton1_Click()
Dim ultimafila As String
ultimafila = Sheets("BASE").Cells(Rows.Count, "B").End(xlUp).Row
ultimafila = ultimafila + 1
Range("B" & ultimafila).Value = Me.NOMBRE.Value
Range("C" & ultimafila).Value = Me.DIRECCION.Value
Range("D" & ultimafila).Value = Me.TELEFONO.Value
Range("E" & ultimafila).Value = Me.MASCOTA.Value
Range("F" & ultimafila).Value = Me.RAZA.Value
Range("G" & ultimafila).Value = Me.EDAD.Value
Range("H" & ultimafila).Value = Me.PELUQUERIA.Value
Range("I" & ultimafila).Value = Me.CONSULTA.Value
Range("J" & ultimafila).Value = Me.EXAMENES.Value
Range("K" & ultimafila).Value = Me.VALOR.Value
End Sub
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке: