Dante Amor

Quiero crear una macro que me borre todos los textbox del formulario del que le llamo. Tu macro está bien. Sub LimpiarTextBox(NombreFormulario As MSForms.UserForm) Dim contr As Control For Each contr In NombreFormulario.Controls If TypeName(contr) =...

Suponiendo que las 8 columnas están de la columna A a la H, empiezan en la fila 1 y hasta la última fila con datos. Utilizando un dictionary: Private Sub CommandButton1_Click() Dim dic As Object Dim a As Variant Dim i As Long a = Range("A1:H" &...

Para saber el número de filas es con el 1: filas = ubound( matriz, 1) Si la matriz empieza a almacenar en el 0, entonces para el total de filas: filas = ubound( matriz, 1) + 1 Para saber el número de columnas es con el 2: columnas = ubound(matriz, 2)...

Esta podría ser una opción: Sub copiarceldas() 'rango a copiar Sheets("Hoja1"). Range("B6:C10"). Copy 'celda inicial para pegar Application.EnableEvents = False Sheets("Hoja2").Range("F3").PasteSpecial xlAll Application.EnableEvents = True End Sub

Para todas las hojas, en la columna B: Sub RellenarHojas() 'Por.Dante Amor Dim sh As Worksheet On Error Resume Next For Each sh In Sheets With sh.Range("B6", sh.Range("B" & Rows.Count).End(3)) .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"...

Prueba la siguiente: Sub EliminarCeldasVacias() Range("A:A").SpecialCells(xlCellTypeConstants, 23).Copy Range("C3") End Sub

Prueba lo siguiente: Private Sub CommandButton1_Click() Dim sh As Worksheet Dim f As Range With nombcof If .Value = "" Then MsgBox "Captura un nombre" .SetFocus Exit Sub End If Set sh = Sheets("INFO") Set f = sh.Range("B3:B100").Find(.Value, ,...

Puedes poner una imagen de la hoja2 con datos y el resultado que quieres para el saldo.

Te falta hacer referencia a la hoja donde vas a pegar: Dim filaDondeCopiar As Integer: filaDondeCopiar = 13 For f = 7 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row If Cells(f, 23).Value <> "Ok" Then With LibroDestino.Sheets("Hoja1")...

Dentro de tu userform, por ejemplo en un botón, haces la llamada al código para limpiar el listbox y le pasas como parámetro el nombre del listbox Private Sub CommandButton1_Click() Call LimpiarListBox(ListBox1) End Sub En un módulo, pon este código:...