Adriel Ortiz Mangia

[Hola prueba con hide folder http://www.intercambiosvirtuales.org/software/hide-folders-2012-v4-0-6-775-oculte-sus-carpetas-de-miradas-ajenas

[Hola utilizar la sentencia if if textbox1 <> "" or textbox2 <> "" then codigo si es verdadero else código si es falso end if

¿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...

Aquí ejemplos https://www.exceleinfo.com/curso-excel-vba-y-macros-cap-42-onkey-para-ejecutar-macros-con-combinacion-de-teclas/

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 lo puedes realizar con una macro https://exceltotal.com/contar-celdas-color-excel/

[Hola Le mensaje que te sale parece que has cambiado la extensión original xlsx a xlsm