Dante Amor

H o l a: Te anexo la función Function extraerconencidencia(texto As Range, comparartexto As Range) 'Por.Dante Amor wmin = Len(texto.Value) + 1 wtext = "" For Each c In comparartexto x = InStr(1, texto.Value, c.Value) If x < wmin And x > 0 Then wmin =...

H o l a: Te anexo la macro para la primera parte: "copiar cada una de las filas y pegarla en una hoja nueva la cantidad de veces que indica la celda en la columna F" Sub CopiarFilas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") 'Hoja origen con datos...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 200 Then Exit Sub If Not Intersect(Target, Range("B:B")) Is Nothing Then For Each c In Target If c.Value...

H o l a: Con gusto te actualizo tu macro. Explícame lo que tienes: ¿Tienes un libro con 2 hojas?¿O tienes 2 libros? Envíame tu archivo y me explicas con ejemplos, ¿colores y comentarios cómo se debe pasar la información de dónde a dónde? Mi correo...

H o l a: Habría que validar antes si el textbox tiene algo, si tiene algo, entonces que procese el archivo. Private Sub CommandButton1_Click() If TextBox1 <> "" Then Dim RutaArchivo1 As String RutaArchivo1 = TextBox1 Original = ActiveWorkbook.Name...

Utiliza lo siguiente: Sub ocultar() Application.Windows("nombre libro").Visible = False End Sub Sub mostrar() Application.Windows("nombre libro ").Visible = True End Sub Cambia "nombre libro" por el nombre de tu libro ' : ) 'S aludos. Dante Amor....

H o l a: Te anexo la macro actualizada: Sub distribucion() 'Por.Dante Amor Dim Asunto As String Application.ScreenUpdating = False Application.DisplayAlerts = False Asunto = "Archivo " & Range("L6") des = Range("A1") Set l1 = ThisWorkbook wpath =...

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Columns("C")) Is Nothing Then With Range(Target,...

H o l a: Envíame tu archivo con tu formulario y me explicas cómo funciona. Dime en dónde tienes el problema, ¿cuándo pasas la información de la celda al listbox o cuando la pasas del listbox a la celda? Mi correo [email protected] En el asunto del...

H o l a: Tengo varias dudas. ¿Quieres qué la macro funcione en automático cuando pones la fecha en la celda de la columna Z?Supongo que quieres copiar las celdas de las columnas B, D, F, I, J, K:N, T, V, W, ¿Z pero de la fila que en la columna Z se...