Respuesta
en
Programación
y en 3 temas más
a
Macro que realice búsqueda en carpeta externa y subcarpetas de esta a partir de dato en una celda
H o l a: Te anexo la macro actualizada y un par de funciones para realizar búsquedas en subcarpetas, subsubcarpertas y todas las subcarpetas. Observa que al principio de la macro está declarada la variable rutas, es preciso que esa línea vaya al...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Código VBA para modificar desde UserForm una Base de Datos en hoja de Excel
H o l a: Envíame tu archivo con el formulario, me dices cómo se llama tu formulario, para adaptar el código. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Blas Gerardo Salinas” y el título de esta pregunta.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Coindicionar macro para ejecutar otra macro en hoja que corresponda
Imprime varias veces porque preguntas 5 veces por el valor de la celda B951, lo que tienes que hacer es preguntar una vez, quedaría así: Private Sub CommandButton30_Click() 'Act.Por.Dante Amor MsgBox " Estas en la semana: " & Range("b951"), ,...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Anexar texto al final de contenido de una celda con macro
H o l a: Te anexo la macro Sub AgrgarPdf() 'Por.Dante Amor For i = 9 To Range("B" & Rows.Count).End(xlUp).Row If UCase(Right(Cells(i, "B"), 4)) <> ".PDF" Then Cells(i, "B") = Cells(i, "B") & ".pdf" End If Next MsgBox "fin" End Sub :)
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como puedo seleccionar una hoja en excel con macros y si no existe crear copia de otra dándole nombre de la hoja que se buscaba.
H o l a: Te anexo la macro Sub FiltrarCopiar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Datos") Set h2 = Sheets("Hoja Base") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row hoja = h1.Cells(i, "A") existe = False For...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro para abrir archivo .pdf alojado en carpeta externa aun que solo coincida parte del texto y como colocarle al final ".pdf"
H o l a: Pero no me queda claro tu ejemplo, cuál es la celda que contiene "parte del texto", podrías escribir esa "parte del texto" y me explicas cuál es la relación entre la "parte del texto" y el nombre del archivo.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
MACRO en EXCEL que asigne un NOMBRE a una CELDA condicionado por el valor de la celda
H o l a: Te anexo la macro, cambia en la macro "Hoja1" por el nombre de tu hoja y también cambia "A1" por la celda que quieras ocupar. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor 'Crea un nombre con lo que se escribe en la...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro que realice búsqueda en columna B si existe el archivo en carpeta externa cambie color de texto y si no lo copie a h5
H o l a: Te anexo la macro Sub RevisarArchivos() 'Por.Dante Amor Application.ScreenUpdating = False Set h5 = Sheets("Hoja5") j = h5.Range("B" & Rows.Count).End(xlUp).Row + 1 For i = 9 To Range("B" & Rows.Count).End(xlUp).Row 'ChDir...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro para copiar celdas especificas de una fila de h1 en celdas determinadas de h2 al dar doble click en columna A de h1
H o l a: Te anexo la macro actualizada Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Act.Por.Dante Amor If Target.Column <> 1 Then Exit Sub If Target.Row < 9 Then Exit Sub n = Target.Row Set h2 = Sheets("Hoja2")...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Prohibir ejecutar macros en hojas especificas
Te anexo un ejemplo para que lo adaptes en todas tus macros Con esta macro, entiendo que estás activando la tecla F6 y si la presionan que ejecute la macro DOS Sub SEGUNDO_P() Application.ScreenUpdating = False Application.OnKey "{f6}", "DOS" End Sub...