Respuesta
en
Microsoft Excel
y en 3 temas más
a
¿Cómo puedo guardar esa imagen Capturada en una base de datos mediante la misma Macro?
¿Quieres qué la imagen se guarde como archivo y también quieres que la imagen se guarde en otra hoja? En cuáles celdas quieres que se guarde la imagen, podrías poner unas imágenes de cómo están tus 2 hojas y otra imagen con el resultado que esperas.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Como ponerle nombre desde una rango de excel a una capture de la hoja?
No estoy entendiendo bien qué necesitas. Explico lo que hace la macro: - La macro copia un rango de celdas - Guarda ese rango de celdas como una imagen - Genera un archivo .jpeg y le pone por nombre el dato que está contenido en una celda. Así como...
Respuesta
en
Visual Basic
a
Como hago para de un botón llamar dos macros bajo una condición que si en la hoja movimientos la celda c9 =ventas
Pon el siguiente Sub guardar() If Sheets("movimientos").Range("C9") = "ventas" Then Call guardar_ventas ElseIf Sheets("movimientos").Range("C9") = "compras" Then Call guardar_compras Else MsgBox "No se identificó cuál macro ejecutar" End If End Sub...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo programar los botones “primera fila”, “anterior” , “siguiente” y “última fila” de un ListBox?
Te anexo el código para moverse en el listbox y también en la hoja 'Por Dante Amor Private Sub CommandButton1_Click() 'Primera If ListBox1.ListCount > -1 Then ListBox1.Selected(0) = True Range("tabla1").Cells(ListBox1.ListIndex + 1, "A").Select End...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para seleccionar dato de un listbox, buscar el dato en una Base de Datos y señalar la fila
Te anexo el código Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Selecciona un registro del list" Exit Sub End If ' codigo = Val(ListBox1.List(ListBox1.ListIndex, 0)) Set h = Sheets("APU") Set b =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pegar datos en excel según condición en VBA
Te anexo la macro Sub Buscar_Pegar() 'Por Dante Amor 'Pegar datos en excel según condición Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 5 To 98 If h1.Cells(i, "Q") <> "" Then Set b = h2.Range("J3:J2000").Find(h1.Cells(i, "Q").Value,...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cambiar nombre a las hojas de un libro con VBA Excel
Te anexo la macro Pon tus datos en estas líneas de la macro: ruta = "C:\trabajo\libros\" 'nombre de la carpeta hojaP = "Principal" 'nombre de la hoja principal hojaX = "xx" 'nombre nuevo Sub Cambiar_Nombre_hoja() 'Por Dante Amor 'Cambiar el nombre de...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro para Ingresar miles y decimales textbox
Prueba con lo siguiente If isnumeric(textbox6.value) and textbox6.value <> "" then Activesheet.Cell(3, 12) = CDbl(textbox6.value) End If
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cambio de color de una celda
Pon la siguiente macro en los eventos de tu hoja. Cambia la "D" por la columna que vas a actualizar. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("D")) Is Nothing Then If Target.Count > 100 Then Exit Sub For...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Código para auto rellenar una columna en Excel con función BuscarV
Las 2 macros no se complementan, las 2 macros sirven para rellenar. Puedes ocupar así: Range("C2:C" & Range("B" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-2],Reportes!C[2]:C[10],9,0)" O de esta forma: Range("C2").Select...