Adriel Ortiz Mangia

[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

[Hola ¿Pero deseas que el formato .PNG se mantenga?

[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 no es posible cambiar la fuente. pero puedes crear tu propio msgbox con un formulario.

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