Adriel Ortiz Mangia

[Hola Con fórmula lo puedes hacer así: =BUSCARV($A2,Hoja1!$A$2:$D$100,COLUMNA(B:B)+1,FALSO) suponiendo que en A2 pones tu cod cliente de la hoja2 y en b2 copia la formula y arrastras para el resto de las columnas.

[Hola prueba con esto Private Sub ComboBox1_DropButtonClick() 'Por.Dante Amor actual = ComboBox1.Value ComboBox1.Clear For Each h In Sheets Select Case h.Name Case "Hoja1", "Hoja2", "Auxiliar" ' Hojas a excluir de la lista Case Else ComboBox1.AddItem...

[Hola Sustituye la línea por esto NombreArchivo = NombreArchivo & "\" & Sheets("Presupuesto").Range("J6") & Range("C6") & Range("D6") Valora para finalizar saludos!

[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 así Private Sub CommandButton1_Click() Dim i As Byte, fila As Integer With ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then fila = fila + 1 Range("A" & fila) = .List(i, 0) ' columna 1 End If Next End With End Sub Private...

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