Adriel Ortiz Mangia

[Hola prueba esto Private Sub Worksheet_Activate() ActiveSheet.Range("A2").End(xlDown).Select End Sub

[Hola Prueba con esta línea ActiveSheet. Shapes(1).Delete o pon tu macro para revisar la rutina

[Hola prueba así Private Sub TextBox1_Change() TextBox3 = Val(TextBox1) * Val(TextBox2) End Sub Private Sub TextBox2_Change() TextBox3 = Val(TextBox1) * Val(TextBox2) End Sub

[Hola prueba esto Private Sub Worksheet_Deactivate() Set h1 = Sheets("Hoja1") ' nombre de la hoja If h1.FilterMode Then h1.ShowAllData End If End Sub

[Hola Te paso la macro Sub Copy() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u2 = h2.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To u2 Set b = h1.Columns("A").Find(h2.Cells(i, "A"), lookat:=xlWhole) If Not b Is Nothing...

[Hola en esta linea arch = "prueba.pdf" cambia por esto arch = h2.Range("G19") & ".pdf" s a l u dos!

[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo Private Sub CommandButton1_Click() ' 'Por Adriel Ortiz ' Set h = Sheets("BASE DE DATOS") Set r = h.Columns("A") Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then f =...

[Hola pon en el evento activate del formulario Private Sub UserForm_Activate() TextBox1 = Date End Sub valora para finalizar saludos!

[Hola Te paso la respuesta del generoso Dante Sub Separar_Numeros() 'Por.Dante Amor ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear j = 2 For i = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row datos = Split(h1.Cells(i, "B"), ";")...

[Hola Te paso la macro actualizada. Ajusta la macro como te indico ( cambiar nombre de la hoja, columna y nombre del textbox) ' Valora la respuesta para finalizar Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer For i = 2 To 3000...