ayuda ayuda
Publicado por roxana (1 intervención) el 17/08/2007 16:22:45
AMIGOS, HOLA NECESITO AYUDA, LES CUENTO, ESTOY INGRESANDO DATOS A UN RANGO EN EXCELL POR MEDIO DE UN FORMULARIO SEGUN EL CODIGO QUE ESTA MAS ADELANTE, PERO TENGO 2 PROBLEMAS.
1ERO .- ESTE CODIGO INSERTA FILA COMPLETA Y NO SOLO CELDAS EN EL RANGO EJM A5:A20.
2DO .- EN UNA SEGUNDA HOJA ESOS VALORES SON SUMADOS, PERO LAS FORMULAS DE SUMA AVANZAN A MEDIDA QUE INSERTO DATOS EN LA HOJA ANTERIOR. EJM
HOJA 1. RANGO A5:A20 VAN LOS DATOS
HOJA 2. CELDA B5 TIENE LA FORMULA (=HOJA1!$A$5), Y A MEDIDA QUE SE INSERTAN EN HOJA 1, AVANZAN LA FORMULA (=HOJA1!$A$6)
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Range("D6").Select
Selection.EntireRow.Insert
Range("D6").Select
ActiveCell.FormulaR1C1 = Val(TextBox1)
TextBox1 = Empty
Else
MsgBox "Escriba una monto"
End If
TextBox1.SetFocus
End Sub
HELP ME PLEASE
1ERO .- ESTE CODIGO INSERTA FILA COMPLETA Y NO SOLO CELDAS EN EL RANGO EJM A5:A20.
2DO .- EN UNA SEGUNDA HOJA ESOS VALORES SON SUMADOS, PERO LAS FORMULAS DE SUMA AVANZAN A MEDIDA QUE INSERTO DATOS EN LA HOJA ANTERIOR. EJM
HOJA 1. RANGO A5:A20 VAN LOS DATOS
HOJA 2. CELDA B5 TIENE LA FORMULA (=HOJA1!$A$5), Y A MEDIDA QUE SE INSERTAN EN HOJA 1, AVANZAN LA FORMULA (=HOJA1!$A$6)
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Range("D6").Select
Selection.EntireRow.Insert
Range("D6").Select
ActiveCell.FormulaR1C1 = Val(TextBox1)
TextBox1 = Empty
Else
MsgBox "Escriba una monto"
End If
TextBox1.SetFocus
End Sub
HELP ME PLEASE
Valora esta pregunta


0