Dante Amor

Hay que revisar la secuencia y cómo estás cargando los datos en el listbox. Comparte tu archivo en google drive y pegas aquí el enlace, para revisar el código.

Prueba lo siguiente. Agregué otro input box para que selecciones las celdas donde quieres poner la fórmula. Sub CrearFormula() Dim reff As Range, rngSelection As Range, rngFormula As Range ' With Application On Error Resume Next Set reff =...

Revisa el siguiente ejemplo: Sub ObtenerDatos() Dim rango As Range Dim celda As String, hoja As String, libro As String ' With Application On Error Resume Next Set rango = .InputBox("Selecciona Rango", Type:=8) If rango Is Nothing Then Exit Sub On...

[Ho la y bienvenida a TodoExpertos! Muy bien tu explicación, solamente te faltó el nombre de las hojas: origen y destino. Cambia en la macro "Hoja1" por el nombre de tus hojas origen y destino: Sub copiarDatos() 'Por Dante Amor Dim sh1 As Worksheet,...

Prueba esto: Sub BorrarLinea() Workbooks("Libro2.xlsx").Sheets("Hoja1").Rows(20).Delete End Sub

Para ocultar excel y ver tu aplicación: Sub ocultar() Application.Windows("nombre libro").Visible = False End Sub Para mostrar otra vez tu libro: Sub mostrar() Application.Windows("nombre libro ").Visible = True End Sub Cambia "nombre libro" por el...

Puede ser de estas maneras: Sub consecutivo() Dim i As Long For i = 9 To Range("C" & Rows.Count).End(3).Row Range("A" & i).Value = i - 8 Next End Sub Sin ciclo: Sub consecutivo_sin_ciclo() Range("A9").Value = 1 Range("A9:A" & Range("C" &...

Utiliza lo siguiente: Dias_Transcurridos.Caption = Date - CDate(Fecha_Aumento.Caption)

Te paso la macro: Sub Compara2Columnas() Dim dic As Object Dim i As Long Dim cad As String ' Set dic = CreateObject("Scripting.Dictionary") ' With Sheets("Hoja2") For i = 2 To .Range("G" & Rows.Count).End(3).Row dic(.Range("G" & i).Value & "|" &...

Prueba lo siguiente. Ajusta el rango "B7:B10" en la macro por el rango donde quieras verificar. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B7:B10")) Is Nothing Then If Target.CountLarge > 1 Then Exit Sub If...