Adriel Ortiz Mangia

[Hola Te paso la macro Sub copiar() 'Por Adriel Ortiz Set h1 = Sheets("Resumen") ' For Each h In Sheets If h.Name <> h1.Name Then u = h1.Range("B" & Rows.Count).End(xlUp).Row + 1 h.Range("W1:X1").Copy h1.Range("B" & u) End If Next ' MsgBox "Fin" End...

[Hola Prueba con esto Private Sub CommandButton1_Click() ' If esc_upc.Text = "" Or lista_def.ListIndex = -1 Then MsgBox "VERIFICAR QUE LOS CAMPOS ESTEN LLENOS", vbOKOnly, "CAMPOS VACIOS" esc_upc.SetFocus Exit Sub End If End Sub

[Hola Te paso un ejemplo del amigo Dante ' Valora la respuesta para finalizar saludos! Private Sub CommandButton1_Click() 'Por Dante 'Act. Adriel 'Filtrar por fecha ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set h1 =...

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

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