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
Microsoft Excel
a
Como comparar palabras y valores de una columna?
Te anexo una macro. El resultado quedará de la siguiente manera En la columna H quedará un consecutivo de los valores que coinciden y en la columna I el valor coincidente. Pero también, en la columna G quedará el consecutivo donde fueron concretadas...
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
a
Quisiera saber como realizar un Macro para un Inventario
Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Copiar el registro If Not Intersect(Target, Columns("I")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub '...
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 1 temas más
a
Reiniciar contador una vez que la fecha actualize
Te anexo la macro actualizada Private Sub B_Print() 'Act Por Dante Amor Dim fec As Date If ActiveSheet.Name = "CATETERISMO CARDIACO DIAG." Then datos = Split(Range("B2"), "-") If UBound(datos) = 1 Then fec = WorksheetFunction.Trim(datos(0)) num =...
Respuesta
en
VBA
y en 1 temas más
a
Macro para ordenar Horizontalmente eliminando duplicados
Puedes poner un par de imágenes explicando lo que necesitas. En la primera imagen pon tus datos originales, en la segunda imagen pon el resultado esperado. Explica con los datos de la imagen qué datos deben ser ordenado o eliminados. Nota: Para poner...
Respuesta
en
Microsoft Excel
a
Error en fórmula buscarV excel
El producto en la tabla "tabla_productos" debe estar en la columna 1, es por eso que no lo encuentra, ya que en la primer columna tienes el código. La otra opción es que utilices el rango en donde buscar, por ejemplo, siguiendo tus imágenes, la...