Adriel Ortiz Mangia

H o l a: Como están ordenados tus datos en que fila empieza, columnas

H o l a: Esto lo consigues con el evento change Private Sub TextBox1_Change() TextBox2.Text = Val(TextBox1) * 0.16 End Sub

H o l a: Entendí que para validar es la hoja "Base de datos", pero en que fila empieza tus datos, cual columna es para validar.

Dante lo logré If Listreport.ListIndex = -1 Then MsgBox "Seleccione un alumno(a)", vbInformation, "IESPP MEO" Exit Sub End If Set h8 = Sheets("Pagosxciclo") Set h9 = Sheets("temp") h9.Range("A11:F30").ClearContents k = 11 DNI =...

H o l a: Ta paso la rutina actualizada items = Hoja12.Range("A" & Rows.Count).End(xlUp).Row For i = 3 To items If LCase(Hoja12.Cells(i, 1).Value) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then Me.ListBox1.AddItem Hoja12.Cells(i, 2)...

H o l a: Muestra una imagen de la hoja y tu formulario, para ver el nombre de la hoja y las columnas para adecuar el código saludos!

H o l a : Prueba con esto Dim CARPETA CARPETA = ActiveWorkbook.Path & "\PDF\" & Range("AG9").Value & "\" & Range("Archivo").Value ActiveSheet.PageSetup.PrintArea = "$B$2:$AE$70" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CARPETA _...

Ho la: ¿Cuál es la celda y la carpeta? Para adecuar la macro saludos!

H o l a: ColumnsWidth : 80 pt;220 pt;120 pt;120 pt Ponle estas medidas al listbox1 y se alineará saludos!

H o l a Te facilito la macro Private Sub CmdIngresar_Click() Set h3 = Sheets("INVENTARIO_EPP ") nombre = ListBox1.List(ListBox1.ListIndex) Set r = h3.Columns("B") Set b = r.Find(nombre, lookat:=xlWhole) If Not b Is Nothing Then h3.Cells(b.Row, "C") =...