Respuesta
en
Microsoft Excel
y en 2 temas más
a
Contador automático con formato personal vba excel
Prueba lo siguiente Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Por.Dante Amor respuesta = MsgBox("¿Nuevo Paciente?", vbYesNo) If respuesta = vbYes Then folio = Range("Q1").Value If folio = "" Then a = Right(Format(Date, "yyyy"), 1) dia =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Crear copia de reporte en excel vba
¿Quieres guardar la hoja "reporte" como un archivo? ¿En una carpeta? Si la carpeta no existe, ¿debe crear la carpeta? Mejor dime paso a paso qué quieres que haga la macro, porque no entiendo tu código.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Quitar encabezado de listbox excel vba
Te anexo la macro actualizada ' Private Sub CommandButton1_Click() 'Por.Dante Amor Set h1 = Sheets("CRON-CLI") Set h2 = Sheets("reporte") Set h3 = Sheets("Hoja1") 'hoja con nombres ' ListBox1.RowSource = "" If ComboBox1 = "" Or ComboBox1.ListIndex =...
Respuesta
en
VBA
y en 3 temas más
a
¿Existe una instrucción de ejecucióon en VBA más rápida que for each?
Si lo que quieres hacer es copiar un archivo "modelo" y guardarlo con diferentes nombres, lo mejor sería utilizar Filecopy, para copiar el archivo en lugar de guardar el archivo desde excel. Prueba con la siguiente macro, hice una prueba para copiar...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Validación de fechas en excel vba
Cuando realizas esto: f_actual = Format(Date, "dd/mm/yyyy") Estás poniendo en f_actual un texto, no estás poniendo una fecha. Para comparar fechas, las 2 deben ser fechas y no textos, quedaría así: Private Sub CommandButton1_Click() ' fecha1 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Duda al validar usuario y contraseña en excel vba
En el ejemplo del usuario, estás comparando un texto contra un número, por eso no lo encuentra. Realicé unos ajustes a tu código: Private Sub CommandButton1_Click() ' Set h1 = Sheets("USUARIOS") ' If N_Usuario.ListIndex = -1 Then MsgBox "Falta el...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Agregar una columna a la selección
Te anexo la macro Sub Copiar_Rango_Seleccionado() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' Set r1 = h1.Range(Selection.Address) If r1.Cells(1, 1).Column = 1 Then MsgBox "No se puede seleccionar una columna a la izquierda"...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo ligar dos combobox en vba Excel?
Cambia la forma en que cargas tu combo Codigo y utiliza la forma que te estoy poniendo en el evento Activate: Private Sub Codigo_Change() Descripcion.value = "" If Codigo.value = "" Or Codigo.ListIndex = -1 Then Exit Sub End If fila =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Vlookup VBA: Datos en otra hoja
El problema es el rango o el que no te está encontrando el dato. Si el proveedor es un número, entonces hay que cambiar el dato del textbox1 a número. También te sugiero que cambies el método de búsqueda a Find( ) Prueba con lo siguiente: Private Sub...
Respuesta
en
VBA
a
Necesito saberl si las un optionbuton puede hacer dos operaciones como se ve en el ejemplo y sino que puedo hacer
Tiene que ver con esto If OptionButton18.Value = True Then Sheets("MKP").Range("O" & Bos_Satir).Value = Val(TextBox2) * Val(TextBox3) * ComboBox3.Value Sheets("MKP").Range("AT" & Bos_Satir).Value = Val(TextBox28.Text) / 5000 ElseIf...