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 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 Sub Macro_Ocultar() ActiveSheet.Range("$A$1:$A$100").AutoFilter Field:=1, Criteria1:="<>" & "TRANPORTE" End SubSub Macro_Mostrar() ActiveSheet.Range("$A$1:$A$100").AutoFilter Field:=1 End Sub

[Hola Prueba esto Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act. Adriel If Not Intersect(Target, Range("E4:E164")) Is Nothing Then If Cells(Target.Row, "B") = "" Then MsgBox "la columna B no contiene datos" Else UserForm1.Show End...

[Hola En la hoja1 están tus datos en la fila 2 y tus datos que no se eliminaran pon en la hoja2 en la columna A. Valora la respuesta para finalizar saludos! Sub eliminar() 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u1 =...

[Hola para mostrar las hojas ocultas usa esto Sub mostrar() For Each h In Sheets If h.Visible <> -1 Then h.Visible = -1 End If Next msgbox "fin" End Sub valorar la respuesta para finalizar saludos!