Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como copiar los valores de una tabla dinámica a otra hoja macros
Juan Carlos: Te anexo la macro. Sub Macro1() 'Por.Dante Amor Sheets("Hoja1").Range("D1:E7").Copy Sheets("Hoja2").Range("A1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub Cambia en la macro "Hoja1" por la hoja en donde...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Exportar hoja de calculo a otro libro
Te anexo la macro con los cambios Private Sub EXPORT_lista_Click() Application.DisplayAlerts = False Sheets("IMPRIME").Select template_file = ActiveWorkbook.FullName fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:="C:\" + _...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Para DANTE - Datos de código QR a hoja de excel
Disculpa, pero no tengo mucha información sobre los códigos QR, lo que he visto es que puedes descargar herramientas a las que les pones el código y te entrega la cadena de caracteres o al revés, le pones la cadena de caracteres y te entrega el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Modificar macros- cambiar ruta de exportado, para que se exporte en el lugar de origen de mi archivo excel
Agregué estas líneas para guardar para exportar el archivo en el origen ruta = ThisWorkbook.Path ChDir ruta La macro quedaría así: Private Sub EXPORT_txtseparadoconcomas_Click() Const DELIMITER As String = "," Dim myRecord As Range Dim myField As...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macros de excel a txt delimitado por comas
Hice una prueba y me funcionó bien. Cambia xlText por xlCSV Prueba y me comentas
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Ayuda con macro excel para copiar celdas y ordenarlas alfabéticamente solo si existen valores
Te anexo la macro. Supongo que tus datos en mayúsculas están en la columna "F", entonces la macro va a poner los datos ordenados en la columna "G". Si los datos están en otra columna, cambia las "F" por la columna y las "G" por la columna en donde...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo recorrer una celda en una macro mediante código?
Te anexo la macro. Cambia en la macro "A" por la letra de la columna que quieras revisar. Cambia la palabra "dato" por la palabra que estás buscando Sub InsertarFila() 'Por.Dante Amor For i = 1 To Range("f" & Rows.Count).End(xlUp).Row If Cells(i,...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Eliminar valores de las celdas C, D y E, siempre y cuando A tenga valor y B no tenga valor. (Macro)
Te anexo la macro Sub eliminar() 'Por.Dante Amor For i = 2 To Range("C" & Rows.Count).End(xlUp).Row If Cells(i, "A") <> "" And Cells(i, "B") = "" Then Range("C" & i & ":E" & i).ClearContents End If Next End Sub Prueba y me comentas.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo pausar macro 15 segundos y después dar dos tabuladores y enter?
Estas son las instrucciones Application. Wait Now + TimeValue("00:00:15") SendKeys "{TAB}", True DoEvents SendKeys "{TAB}", True DoEvents SendKeys "{ENTER}", True
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Marcar Celdas de la Columna x en rojo, si el valor es mayor al valor de la Celda Y. (Macro)
Te anexo la macro, cambia "X" y "Y" por las 2 columnas que quieras comparar Sub RecorrerX() 'Por.Dante Amor x = "X" y = "Y" For i = 1 To Range(x & Rows.Count).End(xlUp).Row If Cells(i, x) > Cells(i, y) Then Cells(i, x).Interior.ColorIndex = 3...