Respuesta
en
Microsoft Excel
y en 2 temas más
a
Encontrar el Valor de una celada y activar la celda en donde esta el valor
Va la macro Sub Buscar_Valor() valor = InputBox("Escribe el valor a buscar : ", "BUSCAR VALOR") If valor = "" Then Exit Sub Set b = Cells.Find(valor, LookIn:=xlValues, lookat:=xlPart) If Not b Is Nothing Then b.Select Else MsgBox "Valor no...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Error al hacer click en listbox
Revisa el número de columnas que tienes en tu listbox. Revisa la propiedad .ColumnCount, debes tener por lo menos 25 columnas También revisa cómo estás cargando el listbox, supongo que utilizas rowsource, también debes tener por lo menos 25 columnas,...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para buscar nombre repetidos en libro
Te anexo la macro. Cambia en la macro "Hoja1" y "A" por tus datos. Sub Buscar_Nombres() 'Por Dante Amor ' Set h1 = Sheets("Hoja1") 'hoja de nombres col = "A" 'columna de nombres h1.Columns(col).Interior.ColorIndex = xlNone For i = 2 To h1.Range(col &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar solo el valor de una celda en otra sin moverse de la celda activa
Ejecuta la siguiente macro: Sub macro() Range("A10").Value = Range("A1").Value End Sub [sal u dos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como puedo integrar ciclo Do While a código de extracción de datos en VBA
Ejecuta la siguiente macro, va a leer todos los registros que tengas en la columna B y en la columna C te pondrá el teléfono. Agrega las lada en esta línea: Lada = Array("744", "595", "22") La macro revisará las LADA que pongas en la línea, si en el...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Crear archivo csv usando un archivo texto
Te anexo la macro. Pon la macro en un archivo de excel y guarda el archivo como excel habilitado para macros en la misma carpeta donde tienes tu archivo txt. Cambia en la macro "reloj" por el nombre de tu archivo txt. Sub Macro1() ' ' Por Dante Amor...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Como puedo condicionar un macro para extraccion de datos?
Por ejemplo, si pones el texto en la celda B2, en la celda C2, solamente te pondrá el número que empieza con 744 Sub extra_Numero() celda = Range("B2").Value n = InStr(1, celda, "744") tel = Mid(celda, n, 10) Range("C2").Value = tel End Sub'.[Sal u...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Excel, Macros. Actualizar datos copiados
Te anexo la macro actualizada Sub programarMacro() tiempo = Now + TimeValue("00:00:05") Application.OnTime tiempo, "miMacro", , True End Sub ' Private Sub miMacro() k = Range("C" & Cells.Rows.Count).End(xlUp).Row If k = 15 Then Range("C3").Delete...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Escribir fecha con un TextBox, mediante un formulario
El detalle es que en los textbox la información almacenada es un texto, tienes que convertir ese texto a fecha. Prueba con lo siguiente, cambia esta línea: ActiveCell.Offset(0, 7) = TextBox41.Value Por esta: ActiveCell.Offset(0, 7) =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Eliminar los números de columna excel
Tienes pendiente valorar esta: Macro para buscar un valor y copiar y pegar Te anexo la macro para eliminar el número Sub Eliminar_Numero() For i = 2 To 999 n = InStr(1, Cells(i, "C").Value, " ") Cells(i, "C").Value = Mid(Cells(i, "C").Value, n + 1)...