Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para concatenar solo si es mayor a cero y considerar solo valores únicos
Te anexo la macro actualizada Sub concatenar() Dim valores As New Collection Set valores = Nothing Range("B3").Value = "" For i = 2 To Range("Z" & Rows.Count).End(xlUp).Row valor = Range("Z" & i).Value existe = False If valor > 0 Then For j = 1 To...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para cortar filas según valor en celda y enviarlos a otro libro y si no se puede libro, otra hoja dentro del mismo libro.
Te anexo la macro para crear un archivo nuevo Sub Macro2() ' Por Dante Amor ' Copiar finalizados a otro libro ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja4") Set rango =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Tabla dinámica según datos de una columna
Una opción es que pongas en diferentes columnas la referencia y el número de bulto. Entonces puedes armar la tabla dinámica con esas 2 columnas de esta forma: Si quieres filtrar solamente por la referencia: ESGAT123456, puedes hacerlo en la tabla...
Respuesta
en
Visual Basic
a
Texbox tome valor de una celda con fórmula
Utiliza lo siguiente: Fin = Format(Range("g5"), "hh:mm:ss am/pm") sal u dos
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Colocar un valor, después de localizar una fecha
Prueba con lo siguiente: Private Sub CommandButton1_Click() fecha = Date Set h5 = Sheets("Hoja5") Set b = h5.Rows(13).Find(fecha, lookat:=xlWhole) If Not b Is Nothing Then u = h5.Cells(Rows.Count, b.Column).End(xlUp).Row + 1 h5.Cells(u, b.Column) =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como seleccionar columna en función de un dato
Ejecuta la siguiente macro Sub Macro4() 'Por Dante Amor ' Ocultar hojas u = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column ActiveSheet.Cells.EntireColumn.Hidden = False For i = 1 To u Set b = Columns(i).Find(15,...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Seleccionar filas por medio de un valor, agregado en una textbox
Te anexo la macro actualizada. Te puse comentarios en las líneas de la macro para explicar lo que hacen. Private Sub BUSCAR_BTN_Click() 'Por Dante Amor Set h = Sheets("Hoja2") 'establece en h la hoja Set r = h.Columns("A") 'establece en r el rango de...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Es posible imprimir 5 páginas de excel, todas en vertical de forma que el orden de impresión sea 4-1-2-3-¿5? ¿Alguna macro?
Prueba con la siguiente macro Sub Imprimir_Hojas() hojas = Array(4, 1, 2, 3, 5) For i = LBound(hojas) To UBound(hojas) Sheets("Hoja1").PrintOut from:=hojas(i), to:=hojas(i) Next MsgBox "Impresión terminada" End Sub Puedes cambiar el orden o agregar...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
3 Desplegables condicionados con celdas combinadas en un formulario de Excel
Como te había comentado el código se hace un poco más complejo al tener celdas combinadas. Sería más práctico si utilizas tu base de esta forma: Normalmente así es como se trabaja con una base de datos, de esa forma es más práctico, crear, insertar...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Generar Word con datos de Excel e insertar imágenes al final
Cambia en tu macro esta línea ObjWord. Activate Por estas: 'copia la imagen de la hoja3 Sheets("Hoja3"). DrawingObjects("1 imagen"). Copy ObjWord. Activate objWord.Selection.PasteAndFormat Type:=wdFormatOriginalFormatting Lo que hace es copiar la...