Dante Amor

Para ver cómo está la información en el txt y cómo quieres la carga. Envíame un par de archivos txt y un archivo de excel con la carga de los datos de esos 2 archivos txt. Mi correo [email protected] En el asunto del correo escribe tu nombre de...

Envíame tu archivo para adaptar un formulario y la macro pueda llenar una lista. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Martin Antonio Bruno” S a l u d o s . D a n t e A m o r

Te anexo la macro Sub Buscar_Datos() 'Por.Dante Amor f = 10005 Do While Cells(f, "I") <> "" Set b = Range("C6:C10001").Find(Cells(f, "I"), lookat:=xlWhole) If Not b Is Nothing Then Cells(f, "A") = Cells(b.Row, "A") Cells(f, "B") = Cells(b.Row, "B")...

Te anexo la macro actualizada, en caso de que ya exista el archivo, va aumentando la versión Sub Guardar_Copia() 'Act.Por.Dante Amor Dim Ajustar_cupo As String Application.DisplayAlerts = True ' arch = Sheets("CARGA").Range("B1") ruta =...

H o l a: Tengo las siguientes dudas. 1. ¿En cuál fila están los encabezados? 2. ¿En cuál fila empiezan los datos? 3. ¿En el libro además de las 27 hojas y de la hoja "consolidado" tienes más hojas? ¿Cómo se llaman? 4. ¿En la hoja "consolidado" tienes...

H o l a: No veo las filas de excel en tu imagen, pero opción puede ser, si quieres eliminar los datos después de la primera coma. Entra al menú Datos, Texto en columnas, Delimitados, seleccionar la casilla de la "Coma" y Finalizar. Listo, con eso te...

Va la macro de búsqueda Private Sub ListBox1_Click() 'Busca coincidencias If cargando Then Exit Sub ListBox2.RowSource = "" h4.Rows("2:" & Rows.Count).Clear fila = Buscar_Coincidencias(ListBox1.List(ListBox1.ListIndex, 0), 2) If fila = 1 Then...

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

Revisa lo siguiente: No te recomiendo utilizar "Option Explicit", es recomendable cuando tienes un programa o varios programas muy extensos.En VBA no es necesario declarar variables, más sobre variables Según su función ¿Cómo declarar variables?...

Te anexo la macro Sub Eliminar_Filas() 'Por.Dante Amor Set h1 = Sheets("listado") 'hoja con el listado ' On Error Resume Next With Application Set celda = .InputBox("Selecciona celda origen ", "PALABRAS", _ Default:=Selection.Address, Type:=8) If...