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

Coincido con jrgces, en VBA no puedes hacer referencia a una variable con el nombre de la variable, mientras que en otros lenguajes si es posible. Siguiendo con tu ejemplo: Es decir esto: VAR2=range("a1").value Te va a dar como resultado esto:...

Revisa el siguiente vídeo para que veas el funcionamiento de BuscarV https://www.youtube.com/watch?v=_WxfHXzQxLU&t=134s En youtube puedes encontrar más vídeos que te pueden ayudar.

[Ho la Erika. Para realizar lo que necesitas es necesario un código en VBA. Te ayudo con el código, pero desafortunadamente en tus imágenes no se ven las filas de la hoja ni las columnas. También responde y en orden lo siguiente : - ¿El número de...

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, ,...