Adriel Ortiz Mangia

¿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 Macro Sub quitacaracter() For i = 1 To Range("A" & Rows.Count).End(xlUp).Row cadena = Cells(i, 1) If InStr(1, Mid(cadena, 1, 2), "DE") Then spr = Mid(cadena, 3, Left(Len(cadena), 2)): Cells(i, 1) = spr Else Cells(i, 1) = cadena End If Next i...

Ahí tienes la propuesta de Dante

[Hola Finaliza como Excelente o bueno si ya no tienes dudas Macro Private Sub CommandButton1_Click() Set h = Sheets("hoja1") 'hoja a buscar Set b = h.Range("A:A").Find(TextBox1.Text, lookat:=xlWhole) If Not b Is Nothing Then If MsgBox("VALOR...

[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

[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()...

[hola macro Private Sub ComboBox1_Change() Select Case ComboBox1.Text Case "Liquidación Micro": TextBox1.Enabled = False Case Else: TextBox1.Enabled = True End Select End Sub