Pasar datos de listbox con doble click a hoja de excel




En esta oportunidad muestro como pasar datos de un listbox a una hoja de Excel con doble click, anteriormente se han publicado otros post relacionados buscar en listbox mientras se escribe en textbox y pasar datos de listbox a hoja de Excel.

Recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.





El ejemplo permite pasar datos del listbox a la hoja de Excel, descargando el ejemplo desde el link del final observarás un botón que permite ejecutar una macro la cual muestra un listbox, haciendo doble click en un item del listbox se copia el dato en la hoja de Excel.







Código que se inserta en un módulo



Sub muestra1()
UserForm1.Show
End Sub

Código que se inserta en userform

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set a = Sheets("Hoja1")
filaedit = a.Range("A" & Rows.Count).End(xlUp).Row + 1
fila = Me.ListBox1.ListIndex
a.Cells(filaedit, "A") = ListBox1.List(fila, 0)
a.Cells(filaedit, "B") = ListBox1.List(fila, 1)
a.Cells(filaedit, "C") = ListBox1.List(fila, 2)
a.Cells(filaedit, "D") = ListBox1.List(fila, 3)
a.Cells(filaedit, "E") = ListBox1.List(fila, 4)
a.Cells(filaedit, "F") = ListBox1.List(fila, 5)
a.Cells(filaedit, "G") = ListBox1.List(fila, 6)
a.Cells(filaedit, "H") = ListBox1.List(fila, 7)

End Sub

Private Sub TextBox1_Change()
On Error Resume Next
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
If Trim(TextBox1.Value) = "" Then
     'Me.ListBox1.List() = b.Range("A2:H" & uf).Value
     Me.ListBox1.RowSource = "Hoja2!A2:H" & uf
   Exit Sub
End If
b.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To uf
   strg = b.Cells(i, 3).Value
   If UCase(strg) Like UCase(TextBox1.Value) & "*" Then
       Me.ListBox1.AddItem b.Cells(i, 1)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = b.Cells(i, 2)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = b.Cells(i, 3)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = b.Cells(i, 4)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = b.Cells(i, 5)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = b.Cells(i, 6)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = b.Cells(i, 7)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = b.Cells(i, 8)
   End If
Next i
Me.ListBox1.ColumnWidths = "20 pt;70 pt;180 pt;80 pt;60 pt;60 pt;60 pt;60pt"
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
If Trim(TextBox2.Value) = "" Then
     'Me.ListBox1.List() = b.Range("A2:H" & uf).Value
     Me.ListBox1.RowSource = "Hoja2!A2:H" & uf
   Exit Sub
End If
b.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To uf
   strg = b.Cells(i, 4).Value
   If UCase(strg) Like UCase(TextBox2.Value) & "*" Then
       Me.ListBox1.AddItem b.Cells(i, 1)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = b.Cells(i, 2)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = b.Cells(i, 3)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = b.Cells(i, 4)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = b.Cells(i, 5)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = b.Cells(i, 6)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = b.Cells(i, 7)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = b.Cells(i, 8)
   End If
Next i
Me.ListBox1.ColumnWidths = "20 pt;70 pt;180 pt;80 pt;60 pt;60 pt;60 pt;60pt"
End Sub

Private Sub UserForm_Initialize()
Dim fila As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
uc = b.Cells(1, Columns.Count).End(xlToLeft).Address
wc = Mid(uc, InStr(uc, "$") + 1, InStr(2, uc, "$") - 2)
With Me.ListBox1
    .ColumnCount = 8
    .ColumnWidths = "20 pt;70 pt;180 pt;80 pt;60 pt;60 pt;60 pt;60pt"
    .RowSource = "Hoja2!A2:" & wc & uf
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error GoTo Fin
If CloseMode <> 1 Then Cancel = True
Fin:
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Como eliminar hoja de Excel con macro




En este post mostraré como eliminar o borrar hojas de Excel con macro, es algo bastante sencillo, pero quizás a la hora que lo necesitemos no sepamos como hacerlo, aquí muestro como, anteriormente mostré como insertar hojas con macro quizás también te sea de utilidad.

Tal vez estés iniciándote en el mundo de Excel te recomiendo leas este excelente libro sobre Excel que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si requieres aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  


Desde el link del final puedes descargar cientos de ejemplos de macros que te pueden ser de utilidad, solo debes adaptarla a tus necesidades.

Para borrar una hoja de utiliza el comando Delete, este permite eliminar la hoja deseada, para ello se debe referenciar a la misma.

El siguiente comando permite eliminar o borrar una hoja mediante su nombre, es decir en este caso se eliminará la hoja denominada o llamada "Hoja1".

Sheets("Hoja1").Delete


También se puede borrar haciendo referencia a su ubicación en la hoja de Excel, el código mostrado a continuación permite borrar la hoja que se encuentra en la posición tres, contando de izquierda a derecha, sin importar cual sea su nombre, eliminará la hoja que se encuentre en esa posición.

Sheets(3).Delete

Cuando se elimina una hoja aparece un cuadro de diálogo de Excel que nos dice que la hoja puede contener datos, solicitando confirmación para eliminar; si se requiere eliminar la hoja y que no aparezca este cuadro de diálogo debemos utilizar el comando que se muestra a continuación, con ello se evita que aparezca este cartel molesto si sabe lo que se está eliminando, no olvidar luego de realizado el procedimiento volver a su estado original volviendo el estado a True.

Application.DisplayAlerts = False


Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo buscar en listbox mientras escribes en textbox, conectar Excel con Access y muchos ejemplos más.

Mira este vídeo explicativo sobre como pasar datos de listbox a hoja de Excel con doble click, quizás le puedas dar utilidad en tu proyecto.







Código que debes copiar y pegar en un módulo



Sub EliminarHojaConNombre()
Application.DisplayAlerts = False
Sheets("Hoja1").Delete
Application.DisplayAlerts = True
End Sub
Sub EliminarHojaConIndice()
Application.DisplayAlerts = False
Sheets(3).Delete
Application.DisplayAlerts = True
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Como agregar hojas de Excel con macro




Cuando realizar un macro es muy común que necesites insertar mediante macro una hoja, en este post enseño como hacerlo. Hay un par de ejemplos relacionados con la manipulación de hojas como son: como borrar o eliminar hojaslistar hojas y cargarlas en un combobox, ordenar hojas en forma ascendente, hyperlink a hojas de otro libro.

Lee un excelente libro sobre Excel que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si requieres aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  


Para insertar una hoja se utiliza el comando add el siguiente código inserta una hoja al final de todas las hojas, siempre por defecto si se omite indicar donde se debe agregar la hoja se inserta delante de la hoja activa.

Para insertar una hoja delante de la hoja activa se puede usar el siguiente código:

ActiveWorkbook.Sheets.Add


Para insertar una al final de todas las hojas que contenga Excel se utiliza:

ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)


Si se requiere insertar una hoja al principio de todas las hojas del libro de Excel se debe utilizar, para saber como hacer referencia o referenciar celdas, rangos, hojas visita el link:

ActiveWorkbook.Sheets.Add Before:=Sheets(1)


Se se precisa insertar una hoja delante de una hoja especifica utiliza el siguiente código, en este caso se insertará la hoja delante de la hoja tres, tu debes cambiar Hoja3 por el nombre de la hoja donde requieras insertar la hoja.

ActiveWorkbook.Sheets.Add Before:=Sheets("Hoja3")


Para insertar una hoja delante de la última hoja utiliza:

ActiveWorkbook.Sheets.Add Before:=Sheets(Sheets.Count)


Desde el link del final puedes descargar cientos de ejemplos de macros que te pueden ser de utilidad, solo debes adaptarla a tus necesidades.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.

Mira este vídeo explicativo sobre como buscar en listbox mientras se escribe en textbox, quizás le puedas dar utilidad en tus macros.





Código que debes copiar y pegar en un módulo para probar el funcionamiento de la inserción de hojas



Sub insertaHoja()
ActiveWorkbook.Sheets.Add
End Sub

Sub insertaHojaFinal()
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
End Sub

Sub insertaHojaInicio()
ActiveWorkbook.Sheets.Add Before:=Sheets(1)
End Sub

Sub insertaHojaDelanteDeHoja()
ActiveWorkbook.Sheets.Add Before:=Sheets("Hoja3")
End Sub

Sub insertaHojaDelanteDeUltimaHoja()
ActiveWorkbook.Sheets.Add Before:=Sheets(Sheets.Count)
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Pasar datos listbox a hoja de Excel




Hoy voy a mostrar como pasar datos de un listbox a una hoja de Excel, a su vez listbox contiene varias columnas que serán copiadas a la hoja de Excel, en este ejemplo también se presenta un buscador que permite encontrar datos listados en el listbox a medida que se escribe, lo que torna el ejemplo interesante y útil para adaptar a cualquier proyecto que se tenga en Excel, ya que la búsqueda de datos es algo fundamental cuando se trabaja con ellos.


  


Antes de continuar, recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

No hace falta muchos conocimientos para poder adaptar este ejemplo a tu proyecto de macro en Excel, solo cambiar las referencias, es decir nombre de hojas y celdas que contienen los datos o donde se guardarán los datos, si te resulta complicado puedes contactarme y te proporcionaré un guía para que puedas adaptarlo.

El vídeo explica más en detalle su funcionamiento, te recomiendo verlo, además de ver en forma gráfica el ejemplo y que hace cada parte del código, lo cual es un poco complicado de explicar con letras.

A grandes rasgos el ejemplo permite copiar una fila con datos seleccionada en un listbox a una hoja de Excel, para ello se debe seleccionar el datos que necesitemos, que podemos buscar con el buscador instalado en el mismo formulario, una vez encontrado el dato se selecciona y presiona el botón del formulario que permite copiar los datos seleccionados en el listbox a la hoja de Excel.

La codificación primero validad que se haya seleccionado un dato caso contrarío sale un mensaje y no hace nada; en caso que se haya seleccionado, determina en la hoja donde se van a copiar los datos seleccionados del listbox y cual es la última fila con datos copiando los mismos en la fila siguiente que está vacía.

Sugiero descargar el ejemplo y ver su funcionamiento conjuntamente con el vídeo explicativo, desde el link del final se puede descargar su uso es libre; si te fueron de utilidad considera la posibilidad de invitarme una tasa de café para seguir subiendo cosas útiles.

Código que se inserta en un módulo



Sub muestra1()
UserForm1.Show
End Sub

Código que se inserta en un formulario

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
On Error Resume Next
conta = 0
For x = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(x) = True Then
    conta = conta + 1
    End If
Next x
If conta = 0 Then
MsgBox "Debe seleccionar un item para copiar en hoja de Excel", vbInformation, "AVISO"
Exit Sub
End If

Set a = Sheets("Hoja1")
filaedit = a.Range("A" & Rows.Count).End(xlUp).Row + 1
fila = Me.ListBox1.ListIndex
a.Cells(filaedit, "A") = ListBox1.List(fila, 0)
a.Cells(filaedit, "B") = ListBox1.List(fila, 1)
a.Cells(filaedit, "C") = ListBox1.List(fila, 2)
a.Cells(filaedit, "D") = ListBox1.List(fila, 3)
a.Cells(filaedit, "E") = ListBox1.List(fila, 4)
a.Cells(filaedit, "F") = ListBox1.List(fila, 5)
a.Cells(filaedit, "G") = ListBox1.List(fila, 6)
a.Cells(filaedit, "H") = ListBox1.List(fila, 7)
End Sub



Private Sub TextBox1_Change()
On Error Resume Next
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
If Trim(TextBox1.Value) = "" Then
     'Me.ListBox1.List() = b.Range("A2:H" & uf).Value
     Me.ListBox1.RowSource = "Hoja2!A2:H" & uf
   Exit Sub
End If
b.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To uf
   strg = b.Cells(i, 3).Value
   If UCase(strg) Like UCase(TextBox1.Value) & "*" Then
       Me.ListBox1.AddItem b.Cells(i, 1)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = b.Cells(i, 2)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = b.Cells(i, 3)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = b.Cells(i, 4)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = b.Cells(i, 5)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = b.Cells(i, 6)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = b.Cells(i, 7)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = b.Cells(i, 8)
   End If
Next i
Me.ListBox1.ColumnWidths = "20 pt;70 pt;120 pt;80 pt;60 pt;60 pt;60 pt;60pt"
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
If Trim(TextBox2.Value) = "" Then
     'Me.ListBox1.List() = b.Range("A2:H" & uf).Value
     Me.ListBox1.RowSource = "Hoja2!A2:H" & uf
   Exit Sub
End If
b.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To uf
   strg = b.Cells(i, 4).Value
   If UCase(strg) Like UCase(TextBox2.Value) & "*" Then
       Me.ListBox1.AddItem b.Cells(i, 1)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = b.Cells(i, 2)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = b.Cells(i, 3)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = b.Cells(i, 4)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = b.Cells(i, 5)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = b.Cells(i, 6)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = b.Cells(i, 7)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = b.Cells(i, 8)
   End If
Next i
Me.ListBox1.ColumnWidths = "20 pt;70 pt;120 pt;80 pt;60 pt;60 pt;60 pt;60pt"
End Sub

Private Sub UserForm_Initialize()
Dim fila As Long
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
uc = b.Cells(1, Columns.Count).End(xlToLeft).Address
wc = Mid(uc, InStr(uc, "$") + 1, InStr(2, uc, "$") - 2)
With Me.ListBox1
    .ColumnCount = 8
    .ColumnWidths = "20 pt;70 pt;180 pt;80 pt;60 pt;60 pt;60 pt;60pt"
    .RowSource = "Hoja2!A2:" & wc & uf
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error GoTo Fin
If CloseMode <> 1 Then Cancel = True
Fin:
End Sub
Sub CargaListbox()
Dim RG As Range, cell As Range
On Error Resume Next
Sheets("BY879VbDAYRA10iBTOMYIUYT").Cells.Clear
Sheets("ARTI").AutoFilterMode = False
uf = Sheets("ARTI").Range("B" & Rows.Count).End(xlUp).Row
With Sheets("ARTI").Range("B9:K" & uf)
   .AutoFilter Field:=2, Criteria1:="=" & TextBox1 & "*"
    Sheets("BY879VbDAYRA10iBTOMYIUYT").Cells.Clear
End With
Set RG = Sheets("ARTI").Range("C21", Sheets("ARTI").Range("C21").End(xlDown)).SpecialCells(xlCellTypeVisible)
RG.CurrentRegion.Copy
Sheets("BY879VbDAYRA10iBTOMYIUYT").Range("a1").PasteSpecial
uf = Sheets("BY879VbDAYRA10iBTOMYIUYT").Range("B" & Rows.Count).End(xlUp).Row
Me.ListBox1.RowSource = "BY879VbDAYRA10iBTOMYIUYT!A1: J" & uf
TextBox1.SetFocus
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends