Dante Amor

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...

Si el texto lo tienes en la celda A2, pon la siguiente fórmula en la celda B2 =SI.ERROR(SI(Y(ENCONTRAR("hola";A2;1);ENCONTRAR("doce";A2;1));A2;" ");" ")[Si te ayudó la información, no olvides valorar la respuesta.

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...

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...

Antes de empezar a hacerte macros, explica: Si tienes varias hojas y cambias el valor de A10 de cualquier hoja, ¿quieres qué se actualice B13 de forma automática o con una macro? Mejor explica cuál sería la secuencia qué debería ocurrir, por ejemplo:...

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...

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) =...

Revisa el siguiente enlace, ahí explico cómo hacer la correspondencia y también cómo guardar el archivo Guardar documentos de acuerdo a un texto variable Y en esta encontrarás cómo guardar el .doc y el .pdf Guardar Documentos de Word a PDF con Macro...

Te anexo la macro Sub Copiar_Fila() 'Por Dante Amor Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino h2.Rows("2:" & Rows.Count).ClearContents k = 2 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row n = h1.Cells(i,...

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)...