Respuesta
en
Microsoft Excel
y en 2 temas más
a
Me gustaría que mi excel genere un PDF de dos hojas de Excel distintas
Cambia en la macro "Hoja1" por el nombre de la hoja que quieras agregar junto a la hoja "PIM Mundial" nombre = Trim(Cells(7, 2)) Sheets(Array("PIM Mundial", "Hoja1")).Copy ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como vincular un textbox a una celda
El código sería así: Private Sub TextBox5_Change() u = Range("B" & Rows.Count).End(xlUp).Row + 1 Cells(u, "B") = TextBox5 End Sub Pero con lo anterior, por cada letra que escribas en el textbox se escribirá el dato en una celda nueva. Te recomiendo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Formato fecha en una columna
Te anexo la macro para poner la fecha en la columna "C" Pon todo el siguiente código en los eventos de tu hoja Public valido ' Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If valido = True Then If Not Intersect(Target,...
Respuesta
en
Visual Basic
y en 2 temas más
a
Hacer una macro para que valide si existe dato en una BD
Te anexo la macro Sub Guardar() 'Por.Dante Amor Set h1 = Sheets("formulario") Set h2 = Sheets("BDC_RAW_DATA") ' cedula = h1.Range("B1").Value If cedula = "" Then MsgBox "Captura un número de cédula", vbExclamation Exit Sub End If Set b =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Disculpen una forma que mi ComboBox seleccione la hoja y la muestre en un ListBox
Agrega el siguiente evento a tu userform Private Sub ComboBox1_Change() 'Por.Dante Amor ListBox1.RowSource = "" If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub End If ' Set h = Sheets(ComboBox1.Value) uf =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Copiar fila de acuerdo a un criterio a otra hoja
Te anexo la macro actualizada Sub Ejecutar() 'Encuentra el valor 1 en la celda U y los pasa a hoja PDF Dim w As String Application.ScreenUpdating = 0 With Sheets("PDF") .[E2,A4:V8000].ClearContents [A5:U5].AutoFilter 21, ">=1"...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro copiar y pegar si cumple una condición
Te anexo la macro actualizada. Según tu explicación, pegas en la fila 11, pero en la macro pegas en la fila 150, de cualquier manera, si es la fila 11, entonces cambia 150 por 11: Sub ACEPTAR_VENTAS_1() ' Application.ScreenUpdating = False...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como hago para que el listbox BVA de excel identifique si el articulo ya esta en el y me agregue más 1 ala cantidad
Puedes explicar el funcionamiento de lo que quieres, es decir, qué capturas en este control: INGRESARCODIGOPRODUCTO_Change, ¿es un textbox o un combo? ¿Después por qué comparas este txt_cod con el dato de la hoja? ¿Existen varios registros con este...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Poner fondo a una fila cuando cumpla condición si cambio una celda
En la celda N1 capturas un valor o es una fórmula Si es un valor entonces pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("N1")) Is Nothing Then If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Validar espacios vacíos en un userform con limite de validación para un usuario y contraseña
Te anexo el código. Al principio de todo el código debe quedar la variable "contador" Cambia en el código en estas líneas por tus datos Set h = Sheets("Usuarios") 'hoja de usuarios y password col1 = "A" 'columna de usuarios col2 = "B" 'columna de...