Dante Amor

Para hacerlo dinámico podrías proporcionar más información. Responde en el siguiente orden: ¿En dónde tienes encabezados? ¿En cuál fila empiezan los datos? ¿Cómo saber si en la columna tienes valores para ser sumados? ¿En dónde quieres los...

Puedes poner ejemplos de lo que tienes en la hoja. Qué vas a capturar en el textbox Y qué resultados quieres.

Prueba esto: Sub SeleccionarCelda() Dim f As Range Set f = Sheets("Hoja2").Range("B:B").Find(ActiveCell.Value, , xlValues, xlWhole, , , False) If f Is Nothing Then MsgBox "No encontrado" Else Sheets("Hoja2").Select f.Select End If End Sub

Te paso la macro: Sub ExtraerDuplicados() 'Por Dante Amor Dim dic As Object Dim i As Long, j As Long, k As Long Dim a As Variant, b As Variant Dim fila As Long ' Set dic = CreateObject("Scripting.Dictionary") fila = ActiveCell.Row a = Range("A" &...

Prueba esto: Sub copiavalores() Dim fila As Long, i As Long, j As Long fila = ActiveCell.Row j = 12 For i = 1 To 10 If Cells(fila, i) <> "" Then Cells(fila, j).Value = Cells(fila, i) j = j + 1 End If Next End Sub

Te anexo la macro Sub concatenar_permutaciones_una() 'Por Dante Amor Dim a As Variant Dim i As Long, j As Long, k As Long, m As Long, n As Long Dim fila As Long fila = ActiveCell.Row a = Range("A" & fila & ":AD" & fila).Value ReDim b(1 To 1, 1 To...

Solamente vuelve a cargar el listbox con esta línea: lstclientes.RowSource = "Clientes!TClientes" Quedaría así: Private Sub btnguardar_Click() ' boton guardar If (cbovendedor) = Empty Or (txtcliente) = Empty Then MsgBox "Recuerda que tienes que...

Según tu código: Range("Clientes!b2") = cbovendedor.Value Range("Clientes!A2") = txtcliente.Value El cliente va en la columna "A" y el vendedor en la columna "B", entonces: Private Sub btnactualizar_Click() Dim hojadatos As Worksheet 'crear variable...

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" &...

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