Adriel Ortiz Mangia

[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...

[Hola Te paso la macro, cambias el nombre de la hoja por el tuyo ' Valora la respuesta para finalizar saludos! Private Sub ComboBox1_Change() Set h1 = Sheets("Hoja1") ' Hoja1 Set b = h1.Columns("A").Find(ComboBox1, LookAt:=xlWhole) If Not b Is...

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Sub actualiza_dato() ' 'Por Adriel Ortiz Set h1 = Sheets("Registro") ' Hoja1 Set h2 = Sheets("Datos") ' Hoja2 ' dato = h1.Range("A2") 'Dato a buscar ' Set b =...

[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo ' Valora la respuesta para finalizar saludos! Private Sub Workbook_Open() '**Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If...