Dante Amor

¡H o l a y bienvenida a TodoExpertos: Revisa la macro en esta respuesta: Macro para ajustar alto de fila en celdas combinadas

Prueba la siguiente macro Sub SumaRangos() Dim a As Range, i As Long, f As Long, t As Long Application.ScreenUpdating = False For Each a In Range("A5", Range("A" & Rows.Count).End(3)).SpecialCells(xlCellTypeConstants).Areas i = a.Cells(1).Row f = i +...

Lo que pasa que el contenido en un textbox o en un combobox o en un label es un texto y excel no te permite realizar ciertas operaciones matemáticas con textos. Por eso esta línea te envía error: If CCT.Value <= CC2 Then Estás comparando un valor con...

Si estás en el evento Exit para no salir del textbox, se utiliza Cancel = True Prueba así: Private Sub OASFT_Exit(ByVal Cancel As MSForms.ReturnBoolean) If OASFT.Value <= Val(OASF2.Caption) Then MsgBox ("Valor nulo") OASFT.SetFocus OASFT.Value =...

Prueba así: If Nombre3 = "" then exit sub If Nombre3 <> " " Then Nombre = Nombre1 & Nombre2 & Nombre3 End If If Nombre4 = "" then exit sub If Nombre4 <> " " Then Nombre = Nombre1 & Nombre2 & Nombre3 & Nombre4 End If If Nombre5 = "" then exit sub If...

Si quieres cargar desde A2 hasta N y hasta la última fila con datos, puede ser: Private Sub UserForm_Initialize() UserForm1.Lst_database.List = Hoja1.Range("A2:N" & Hoja1.Range("A" & Rows.Count).End(3).Row).Value End Sub

Pon tus datos como se muestra en la siguiente image: Pon la siguiente macro en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1:B2")) Is Nothing Then Dim j As Long, lc As Long If...

Y cuando pulso encima de cada una Tienes otro código para cuando "pulsas encima". Puedes poner aquí también ese código. list_equipaments, ¿Es un botón o es otro listbox o qué es?

El siguiente ejemplo, copia la hoja1 en un nuevo libro, guarda el nuevo libro con el nombre del textbox1. Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Hoja1").Copy...

Tienes otra variable en el incremento de la fila: final = Hoja3.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox2.ListCount - 1 Hoja3.Cells(final, 6) = ListBox2.List(i, 0) Hoja3.Cells(final, 7) = ListBox2.List(i, 1) Hoja3.Cells(final, 1) =...