Dante Amor

La macro del enlace ajusta el alto de las filas en celdas combinadas. Macro para ajustar alto de fila en celdas combinadas ¿A qué te refieres con "bloqueado"?

Prueba cualquiera de estas macro para ver cuál te funciona: Sub test1() ActiveSheet.OptionButtons.Value = False End Sub Sub test2() Dim ob As Object For Each ob In ActiveSheet.OptionButtons ob.Value = False Next End Sub

Try this Private Sub CommandButton1_Click() Dim f As Range Set f = Hoja1.Range("A1:Z1").Find(DTPicker1.Value, LookIn:=xlFormulas, LookAt:=xlWhole) If Not f Is Nothing Then Events.Caption = f.Offset(1, 0) End If End Sub

Con lo siguiente eliminas una imagen ActiveSheet. DrawingObjects("Picture 1").Delete Pero debes conocer el nombre de la imagen. Cuando cargas los datos en el listbox, también cargas la imagen en el listbox, ¿qué código utilizas? ¿O cuándo borras los...

No está el enlace al archivo. Pon aquí tu código para revisarlo.

Si guardas el archivo como csv delimitado por comas y abres el archivo con el bloc de notas, podrás el cero: El archivo en texto contiene los ceros, pero si lo abres con excel, en automático reconoce el texto como número y elimina los ceros de la...

G r a c i a s por compartir el código. Aquí otro ejemplo para considerar Sub test2() Dim c As Range, Data As String For Each c In Rows(10).SpecialCells(xlCellTypeConstants) If c.Value Like "*Rocoto*" Then Data = Data & c.Column & ", " Next If Data <>...

Prueba lo siguiente: Private Sub CommandButton1_Click() Dim final As Long final = Hoja6.Range("A:G").Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1 Hoja6.Cells(final, 1) = Me.txt_fecha Hoja6.Cells(final, 2) = Me.cbo_not Hoja6.Cells(final, 3) =...

Considera el siguiente ejemplo: Dim i As Long For i = 1 To 15 Controls("TextBox" & i).Value = Empty Next

Puedes utilizar una tabla dinámica. En el menú Insertar / Tabla dinámica. Arrastra el campo Ubi1 a Rótulos de fila y Ubi2 a Valores. Para obtener los valores máximos, cambia la configuración del campo Ubi2 a Máx.