Respuesta
en
Microsoft Excel
y en 2 temas más
a
Celda igual a otra celda de ultima hoja activa
No conozco alguna función que te permita saber cuál es el nombre de la última hoja de tu libro. Lo que puedes hacer es ejecutar una macro. Por ejemplo, con la siguiente macro te pone en la celda A10 el dato de B13 de la última hoja. Sub Poner_Dato()...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar datos de una hoja a otra y que ordene los nuevos datos
Te anexo la macro Sub Copiar_De_Compras_A_BD() ' Por Dante Amor ' Set h1 = Sheets("COMPRAS") 'Origen Set h2 = Sheets("BD") 'Destino h2.Rows("9:9").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove h2.Range("B9").Value = h1.Range("D6")...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Buen día a todos, necesito una macro que llene las celdas bajo dos condiciones de columnas
Te anexo la macro Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 9 Or Target.Column = 10 Then If Target.Count > 1 Then Exit Sub If UCase(Range("I" & Target.Row)) = "VENTA" Then If UCase(Range("J" & Target.Row)) =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para copiar filas de celdas en negativo
Te anexo la macro Sub Analizar_Negativos() ' Por Dante Amor Set h1 = Worksheets("resultados") 'origen Set h2 = Worksheets("analizar") 'destino If h1.AutoFilterMode Then h1.AutoFilterMode = False u = h1.Range("M" & Rows.Count).End(xlUp).Row...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para separar información por celda y hacer un buscar de un catalogo
Puedes poner 2 imágenes. En la primera imagen pon estos datos como realmente los tienes: A1 : 1123|1124|1349 A2: 1234|1209|78923|2849 A3: 2367|9838|9028|992 En otra imagen pones la hoja de tu catálogo. Procura que en las imágenes se vean las filas y...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Config. Hoja de excel vba
Falta seleccionar la hoja. Prueba con lo siguiente: Sub config_todas_las_hojas() On Error Resume Next For Each h In Sheets h.Select ActiveWindow.View = xlPageBreakPreview h.ResetAllPageBreaks h.VPageBreaks(1).DragOff Direction:=xlToRight,...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Llenar listbox en excel sin duplicados
Te anexo el código: With Me.ListBox1 .ColumnCount = 1 .ColumnWidths = "60pt" Set h = Sheets("Base") For i = 2 To h.Range("AO" & Rows.Count).End(xlUp).Row If WorksheetFunction.CountIf(h.Range("AO" & i & ":AO2"), h.Cells(i, "AO")) = 1 Then .AddItem...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Con respecto a ocultar a algunas columnas en especifico
Si solamente quieres revisar la fila 8 y si la celda está vacía, por ejemplo, si la celda B8 está vacía, entonces que oculte la columna B. Ejecuta la siguiente macro Sub OcultaColumnas() 'Por.Dante Amor Application.ScreenUpdating = False...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Me puede compartir el archivo Excel para realizar Voto Electrónico? [email protected]
Revisa el siguiente archivo Voto electrónico en excel, ¿Qué macros debo usar? ¿Para el conteo de clicks a partir de una imagen?
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para buscar un valor y copiar y pegar
Te anexo la macro Sub macro() Set h1 = Sheets("Hoja3") Set h2 = Sheets("Hoja2") With h1.Range("G1:G" & h1.Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=VLOOKUP(RC[-6],Hoja2!C[-3]:C[-2],2,0)" .Value = .Value End With With h1.Range("H1:H" &...