Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro que funciona pero es demasiado lenta
Prueba con el siguiente código Sub Buscar_2() 'Por Dante Amor Application.ScreenUpdating = False ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") h3.Cells.ClearContents u3 = 2 ' For i = 2 To h2.Range("D" &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo guardar mediante macro un EXCEL a PDF?
Te anexo el código actualizado para guardar en xlsx y también en PDF Sub Guardar() ' ' Guardar Macro ' ' Acceso directo: CTRL+h ' Dim nombre As String, Ruta As String Ruta = "C:\Users\Desktop\INFORMES\" nombre = Range("B3").Value Cells.Copy...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Modificar datos en celdas dependiendo del valor
Te anexo la macro Sub Macro1() 'Por Dante Amor With Range("E2:E" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = _...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Tengo un UserForm con un TextBox que trae datos a otros TextBox pero cuando debería terminar repite nuevamente los datos
En estos casos lo recomendable es poner un listbox. Con lo que tienes solamente puedes poner hasta 5 ó 6 productos, ¿y si la factura tiene más de 6 productos?, entonces tendrías que agregar más textbox. Con el listbox puedes agregar varios productos....
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Abrir otros libros excel con el explorador, copiar datos y almacenarlos uno debajo de otros en el libro actual
Te anexo la macro Sub Consolidar_Info() 'Por Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets("CONSOLIDADO") ' With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione uno o varios archivos" .Filters.Clear .Filters.Add "archivos...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Botón Excel para copiar y pegar un rango de celdas en la ultima fila.
Prueba con la siguiente macro y me comentas Sub copiar_12() 'Por Dante Amor Set h1 = Sheets("Hoja1") u = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row If u > 12 Then h1.Range("A" & u - 11 & ":I" & u).Copy h1.Range("A" & u + 1) Else h1.Range("A1:I" &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Excel, macro copiar con condición
Si solamente se cumple un verdadero entonces utiliza el siguiente código: Set h2 = Sheets("Hoja2") 'hoja con datos ' If h2.Range("J2") = True Then Set h3 = Sheets("Hoja3") ElseIf h2.Range("K2") = True Then Set h3 = Sheets("Hoja4") ElseIf...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
EXCEL Colorear celda, fila, columna o fila y columna activas SIN QUE SE IMPRIMAN, respetando el formato original de las celdas
Revisa el siguiente artículo, ahí explico cómo iluminar la fila y la columna de la celda activa. https://www.gerencie.com/iluminar-la-fila-y-la-columna-donde-se-encuentra-la-celda-activa.html [Sal u dos]
Respuesta
en
VBA
y en 1 temas más
a
Procedimmiento demasiado largo en vba, me aparece ese error no se como dividir los código para que funcionen
Te anexo un ejemplo utilizando un SOLO procedimiento para cada uno de tus bloques: Private Sub CommandButton211_Click() If OptionButton5 = True Then 'kabelmenge M1 Call Pasar_A_Hoja("zusammenfassung", "B", 41, 51, 110) ' 'me kabeltecsum Call...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo hacer para que excel detecte los duplicados dentro de una columna y lleve todos los datos de la fila hacia otra hoja?
Tal vez haya que realizar ajustes, ya que no mencionaste algunas cosas importantes, si hay 2 datos iguales qué se debe hacer: 1. ¿Copiar los dos datos a la hoja2? 2. ¿Copiar un dato solamente a la hoja2? 3. Si se copia solamente un dato cuál es el...