Adriel Ortiz Mangia

>Prueba esto Private Sub CommandButton_aceptar_Click() '>Adriel Ortiz ' Set h = Sheets("Datos") ' dni = Val(TextBox_dni) Set col = h.Columns("A") Set b = col.Find(dni, lookat:=xlWhole) ' If Not b Is Nothing Then MsgBox "En dni ya existe" Exit Sub...

[hola Si los nombres de los combox son correlativos Private Sub ComboBox8_Change() Dim i As Long Select Case ComboBox8.Text Case "12x6´" ComboBox5.Visible = True For i = 10 To 50 Me.Controls("ComboBox" & i).Visible = False Next i Case "12x7´"...

Cambia xlpart por xlwhole

¿Será para colorear? Macro Sub colorxcondicion1() Columns("E").Interior.ColorIndex = xlNone For i = 2 To Range("E" & Rows.Count).End(xlUp).Row If Cells(i, "H") = 9 Then Cells(i, "E").Interior.ColorIndex = 6 Next i MsgBox "Terminado" End Sub

[Hola preparé la macro para 16 columnas ya usted lo ajustas a tu necesidad Private Sub Entradas() Set sh = Sheets("Hoja1") ' nombre de hoja Dim i As Long, j As Long With ListBox1 .ColumnCount = 16 ' cant. de columnas .List = Range("A1:P1").Value '...

[hola joaom Podemos crear o editar la macro, pero pon imágenes de tus datos y a partir ahí explica en que caso debe mostrar en mensaje, porque interpretar la macro línea por línea hace el trabajo más extenso.

[hola macro Sub adicionarC() For i = 2 To 5000 xcolor = Cells(i, 1).Interior.ColorIndex If xcolor = 6 Then Cells(i, 1) = Cells(i, 1) & "-1" End If Next i MsgBox "exito" End Sub

[hola macro Private Sub UserForm_Initialize() For Each hj In ThisWorkbook.Sheets If hj.Name <> "-" Then ComboBox1.AddItem hj.Name End If Next hj End Sub

Revisa este link https://ayudaexcel.com/foro/topic/40245-buscar-registro-en-base-access-con-un-textbox/

[hola Macro para cargar combobox y listbox Private Sub UserForm_Initialize() 'cargar combobox y listbox For i = 3 To 15 ComboBox1.AddItem Cells(i, 1) ListBox1.AddItem Cells(i, 2) Next i End Sub para traspasar datos Private Sub CommandButton1_Click()...