Adriel Ortiz Mangia

H o l a: Comparte el libro, pero tiene ciertas limitaciones por ejemplo insertar, filtros avanzados etec.. Infórmate aquí Compartir libros con macros Formulario en excel en red y trabajen en simultaneo Valora la respuesta para finalizar saludos!

H o l a: Usa 2 botones para oculta y mostrar Sub ocultar() Sheets("Hoja2").Visible = True 'oculta la hoja Sheets("Hoja3").Visible = False ' Muestra la hoja End Sub Sub mostrar() Sheets("Hoja2").Visible = False 'Muestra la hoja Sheets("Hoja3").Visible...

H o l a: Separa datos de la columna A y lo pondrå en la columna B y C Sub separa() For i = 1 To 10 j = 3 For k = 1 To 4 Cells(i, j) = Mid(Cells(i, "A"), k, 1) j = j + 1 Next Next End Sub

h o l a: Te faltó indicar la columna a sumar en el ejemplo puse la columna 3, cámbialo por el tuyo. For i = 0 To ListBox3.ListCount - 1 tot = tot + Val(ListBox3.List(i, 3)) Next i TextBoxD.Text = tot Me comenta y valora la respuesta para finalizar...

H o l a: En esta parte del código ListBox1.List(i, 1) = Range(ubica2).Offset(0, 1) ListBox1.List(i, 2) = Range(ubica2). Offset(0, 2) Agrega ListBox1.List(i, 3) = Range(ubica2).Offset(0, 3) ListBox1.List(i, 4) = Range(ubica2).Offset(0, 4) ' ' ' Me...

H o l a : Set h1 = Sheets("Hoja 01") ' CAMBIA EL NOMBRE DE LA HOJARuta = "C:\Users\Alonso\Desktop\" 'CAMBIA LA RUTA DEL ESCRITORIOSub Guardarpdf() Set h1 = Sheets("Hoja 01") ' CAMBIA EL NOMBRE DE LA HOJA Application.ScreenUpdating = False...

Sheets("Contador").Range("A1").Value = Sheets("Registros").Range("A7").Value + 1

H o l a: Como están ordenados tus datos en que fila empieza, columnas

H o l a: Esto lo consigues con el evento change Private Sub TextBox1_Change() TextBox2.Text = Val(TextBox1) * 0.16 End Sub

H o l a: sigue este proceso en la propiedad del listbox Me comentas saludos!