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

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) =...

Prueba esto: Cambia en la macro "Formato", "principal" y "B6" por tus datos Sub copiaHoja() Sheets("Formato").Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = Sheets("principal").Range("B6") End Sub

Aquí una macro con otro enfoque para ti a considerar. Sub Delete_Fila_Columna() Sheets.Select Rows(1).Select Selection.Delete Columns(1).Select Selection.Delete Sheets(1).Select End Sub

El formato que tienes en la celda lo tienes que poner también en el siguiente formato: TextBox9.Value = Format(Range("L7:L65365").Find(TextBox1.Text).Offset(0, 3), "### ##") Cambia "### ##" por el formato que tienes en la celda.