Dante Amor

H o l a: Te anexo la macro, cambia en la macro "Hoja1" y "Hoja2" por los nombres de tus hojas. La macro pega las últimas 68 filas de la hoja1 en la celda A1 de la hoja2. Si quieres que siempre se peguen en otra celda, por ejemplo en la D4, cambia...

Lo que tienes que hacer es cargar la imagen desde la ruta Suponiendo lo siguiente, en la celda B3 de la hoja1 está la ruta, en la celda B4 de la hoja1 está el nombre del archivo, por ejemplo: C:\trabajo\datos\ Image008.jpg Notas: al final de la ruta...

Te anexo el código actualizado Private Sub txt_nombre_Change() 'Por.Dante Amor Set r = Hoja1.Range("H:H") Set b = r.Find(txt_nombre, LookIn:=xlValues, LookAt:=xlWhole) If Not b Is Nothing Then celda = b.Address Do 'detalle If Hoja1.Cells(b.Row, "W")...

Te anexo la macro Sub Transponer_Datos() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear j = 1 For i = 3 To h1.Range("A" & Rows.Count).End(xlUp).Row Step 8 h1.Cells(i, "A").Copy...

Te anexo el código Private Sub UserForm_Click() Dim botones As Collection Set botones = New Collection Dim n As Integer Botones. Add "CommandButton1" Botones. Add "CommandButton2" Botones. Add "CommandButton3" Botones. Add "CommandButton4" Botones....

Te anexo el código para tu formulario Dim direccion ' Private Sub CommandButton1_Click() 'Buscar direccion = "" Call Buscar(1, xlNext, "A1") End Sub Private Sub CommandButton2_Click() 'Siguiente Call Buscar(2, xlNext, direccion) End Sub Private Sub...

Puede ser en el mismo libro, eso sería más práctico; la forma sería proteger y ocultar la hoja, de esa forma, solamente mediante las macros, podrían visualizar o modificar la información. O si lo prefieres, puede ser en el mismo libro, la hoja...

Envíame tu archivo para adaptar el código para tu listbox Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Monica Tovar”

Esta podría ser una manera: Sub Comparar() 'Por.Dante Amor Set b = Range("A2:A10").Find(Range("A1"), lookat:=xlWhole) If b Is Nothing Then MsgBox "El dato no existe" Else MsgBox "El dato se encuentra en la celda : " & b.Address End If End Sub . 'S...

Envíame tu archivo con las 2 hojas, me explicas con un ejemplo qué quieres buscar y qué resultado o resultados quieres en la hoja1 Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Julio Cesar Diaz”