Adriel Ortiz Mangia

[Hola Pon así Private Sub UserForm_Activate() TextBox_FechaRegistro.Text = Date End Sub

[Hola Te paso la macro cuando tienes abiertos ambos libros Sub copiar_libro1() ' 'Por Adriel ' Application.ScreenUpdating = False Set l2 = ThisWorkbook ' Set l1 = Workbooks("Libro1.xlsx") ' Libro de origen de datos Set h2 = l2.Sheets(1) Set h1 =...

[Hola Lo solucionas usando la función CDATE Ejemplo Range("A1") = CDate(TextBox_Fecha1ercontacto) valora la respuesta para finalizar saludos!

[Hola Pon así Private Sub ComboBox1_Change() On Error Resume Next CentroCostos = Application.WorksheetFunction.VLookup(Me.ComboBox2_Proyecto.Value, Sheets("Tablas Maestras").Range("A:B"), 2, 0) Me.Label7.Caption = CentroCostos End Sub

[Hola prueba esto dato = TextBox1.Value 'ultima fila columna A de la hojax ufila = Sheets("HOJAX").Range("A" & Rows.Count).End(xlUp).Row ' contarsi = Application.WorksheetFunction.CountIf(Sheets("HOJAX").Range("A2:A" & ufila), dato)

[Hola

[Hola Te paso la macro, cambia el nombre de la hoja origen y el resultado lo pondrá en la hoja2 Valora la respuesta la finalizar saludos! Sub quita_dupicados() ' '**Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") ' Hoja de origen Set h2 = Sheets("Hoja2")...

[Hola Te paso la macro actualizada Valora la respuesta para finalizar saludos! Private Sub CommandButton1_Click() Dim Fila As Integer Fila = 2 While Cells(Fila, 1) <> "" Fila = Fila + 1 Wend ' If Not IsDate(tb1) Then MsgBox "Valor incorrecto en la...

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Sub limpiar() ' 'Por Adriel Ortiz Set h1 = Sheets("REGISTRO & ACTUALIZACIÓN") ' h1.ComboBox1 = "" h1.ComboBox2 = "" h1.ComboBox3 = "" ' ' 'Aquí para el resto End Sub

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Private Sub CommandButton1_Click() Set h2 = Sheets("Hoja2") ' Nombre de la hoja If TextBox1 = "" And TextBox2 = "" And TextBox3 = "" _ And TextBox4 = "" Then MsgBox "Ingrese datos en...