Adriel Ortiz Mangia

h o l a Como estas usando Option explicit ¿Has declarado la variable total?

H o l a Cierra el archivo o cierra sesión. Luego selecciona tu archivo, y presiona la tecla Shift y has clic derecho: ejecutar en modo solo lectura.

H o l a te paso la macro Sub verifica() '//Por Adriel Set h1 = Sheets("Hoja1") ' cont = 0 h1.Columns("D").Interior.ColorIndex = xlNone For i = 2 To h1.Range("D" & Rows.Count).End(xlUp).Row If h1.Cells(i, "D") = 0 Then h1.Cells(i,...

H o l a te paso la macro Sub sumar() '//Por Adriel Set h1 = Sheets("SA") u = h1.Range("L" & Rows.Count).End(xlUp).Row If u < 8 Then u = 8 Sum = Application.WorksheetFunction.Sum(Range("L8:L" & u)) h1.Cells(u + 1, "L") = Sum MsgBox "fin" End Sub...

H o l a prueba esto Private Sub ComboBox1_Change() TextBox1.Text = Val(ComboBox1) * Val(ComboBox2) End Sub Private Sub ComboBox2_Change() TextBox1.Text = Val(ComboBox1) * Val(ComboBox2) End Sub en el combo de descuento debes de poner 1.10; 1,15;...

h o l a te paso la macro Private Sub CommandButton1_Click() If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub Set h1 = Sheets(ComboBox1.ListIndex + 1) u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(u, "A") = ComboBox1 h1.Cells(u,...

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

H o l a te paso la macro Private Sub CommandButton1_Click() '//por Aortiz hoja = TextBox5.Value encontrado = False For Each h In Sheets If UCase(h.Name) = UCase(hoja) Then encontrado = True Exit For End If Next If encontrado Then Sheets(hoja).Select...

H o l a te paso la macro Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set r = h1.Columns("A") Set b = r.Find(ComboBox1, lookat:=xlWhole) If Not b Is Nothing Then h1.Cells(b.Row, "B") = TextBox1 End If End SubPrivate Sub...

H o l a Para el formulario sería esto. En mi ejemplo voy a cargar el rango dinámico A3 hasta ultima fila de la columna D Private Sub UserForm_Activate() Set h1 = Sheets("Hoja1") ComboBox1.RowSource = h1.Name & "!A3:D" & h1.Range("A" &...