Como adicionar registros con una macro

Hola recién inicio en esta página y veo que tu habilidad en excel es asombrosoza
Actualmente estoy realizando desde una macro, la selección de datos los cuales deben quedar almacenados en una hoja excel, el código utilizado para ello es el siguiente
Dim P As Integer
Dim internas As Integer
Dim externas As Integer
Dim satisfac As Integer
Dim Mmayor As Integer
Dim Mmenor As Integer
Dim actividad As Integer
Dim tiempoa As Integer
Dim Nestudio As Integer
Dim Tconfiar As Integer
Dim Edad As Integer
Dim Ecivil As Integer
Dim Pcargo As Integer
Dim Tvivien As Integer
Dim Ltelefono As Integer
Dim Menosd As Integer
Dim Masd As Integer
Dim eg As Double
Dim x As Double
Dim y As Double
Dim h As Double
Dim cupo As Long
Dim ed As Double
Dim a As Double
Private Sub CommandButton1_Click()
P = 0
cupo = 0
internas = 0
externas = 0
satisfac = 0
Mmayor = 0
Mmenor = 0
actividad = 0
tiempoa = 0
Nestudio = 0
Tconfiar = 0
Edad = 0
Ecivil = 0
Pcargo = 0
Tvivien = 0
Ltelefono = 0
Menosd = 0
Masd = 0
If ComboBox6.ListIndex = 0 Or ComboBox6.ListIndex = 9 Or ComboBox6.ListIndex = 15 Then
' Formula Boyaca
' experiencias internas
If TextBox5 < 0 Then
MsgBox ("Rectifique experiencias internas")
Else
If ((Val(TextBox5.Text)) < 1) Then
internas = 15
Else
If ((Val(TextBox5.Text)) <= 2) Then
internas = 25
Else
If ((Val(TextBox5.Text)) = 3) Then
internas = 40
Else
internas = 50
End If
End If
End If
End If
' Experiencias Externas
If TextBox4 < 0 Then
MsgBox ("Rectifique experiencias externas")
Else
If TextBox4.Text = 0 Then
externas = 8
Else
If TextBox4.Text <= 2 Then
externas = 16
Else
If TextBox4.Text = 3 Then
externas = 28
Else
externas = 40
End If
End If
End If
End If
'Experiencias satisfactorias
If (Val(TextBox5.Text) + Val(TextBox4.Text)) < Val(TextBox3.Text) Then
MsgBox ("Rectifique suma de experiencias internas y externas")
Else
If TextBox3 < 0 Then
MsgBox ("Rectifique experiencias satisfactorias")
Else
If TextBox3.Text = 0 Then
satisfac = 16
Else
If TextBox3.Text <= 2 Then
satisfac = 24
Else
If TextBox3.Text = 3 Then
satisfac = 42
Else
satisfac = 60
End If
End If
End If
End If
End If
'moras mayores
If TextBox1.Text < 0 Then
MsgBox ("Rectifique moras mayores")
Else
If TextBox1.Text = 0 And (TextBox5 + TextBox4 > 0) Then
Mmayor = 50
Else
If (TextBox1.Text = 0 And (TextBox5 + TextBox4 = 0)) Then
Mmayor = 25
Else
If TextBox1.Text >= 1 Then
Mmayor = -400
End If
End If
End If
End If
' Moras menores
If TextBox2.Text < 0 Then
MsgBox ("Rectifique moras menores")
Else
If TextBox2.Text = 0 And (TextBox5 + TextBox4 > 0) Then
Mmenor = 50
Else
If (TextBox2.Text = 0 And (TextBox5 + TextBox4 = 0)) Then
Mmenor = 25
Else
If TextBox2.Text = 1 Then
Mmenor = -150
Else
If TextBox2.Text >= 2 Then
Mmenor = -400
End If
End If
End If
End If
End If
'Tipo de actividad
If ComboBox1.ListIndex = 0 Then actividad = 80
If ComboBox1.ListIndex = 1 Then actividad = 160
If ComboBox1.ListIndex = 2 Then actividad = 15
' Tiempo en la actividad
If ComboBox2.ListIndex = 0 Then tiempoa = 10
If ComboBox2.ListIndex = 1 Then tiempoa = 40
If ComboBox2.ListIndex = 2 Then tiempoa = 30
'Nivel de estudios
If ComboBox5.ListIndex = 0 Then Nestudio = 3
If ComboBox5.ListIndex = 1 Then Nestudio = 14
If ComboBox5.ListIndex = 2 Then Nestudio = 18
If ComboBox5.ListIndex = 3 Then Nestudio = 21
If ComboBox5.ListIndex = 4 Then Nestudio = 27
'TIEMPO EN CONFIAR
If TextBox8.Text < 12 Then
Tconfiar = 10
Else
If TextBox8.Text < 36 Then
Tconfiar = 45
Else
Tconfiar = 100
End If
End If
'edad
If TextBox6.Text < 18 Then
MsgBox ("menor de edad")
Else
If TextBox6 < 25 Then
Edad = 10
Else
If TextBox6 <= 40 Then
Edad = 90
Else
If TextBox6 <= 50 Then
Edad = 40
Else
Edad = 65
End If
End If
End If
End If
' estado civil
If ComboBox3.ListIndex = 0 Then Ecivil = 50
If ComboBox3.ListIndex = 1 Then Ecivil = 35
If ComboBox3.ListIndex = 2 Then Ecivil = 30
If ComboBox3.ListIndex = 3 Then Ecivil = 45
If ComboBox3.ListIndex = 4 Then Ecivil = 40
'PERSONAS A CARGO
If TextBox7.Text = 0 Then
Pcargo = 12
Else
If TextBox7.Text <= 3 Then
Pcargo = 120
Else
Pcargo = 66
End If
End If
'Tipo de vivienda
If ComboBox4.ListIndex = 0 Then Tvivien = 70
If ComboBox4.ListIndex = 1 Then Tvivien = 55
If ComboBox4.ListIndex = 2 Then Tvivien = 39
If ComboBox4.ListIndex = 3 Then Tvivien = 23
If ComboBox4.ListIndex = 4 Then Tvivien = 7
'Lineas Telefonicas
If TextBox9.Text = 0 Then Ltelefono = 0
If TextBox9.Text = 1 Then Ltelefono = 10
If TextBox9.Text >= 2 Then Ltelefono = 20
'endeudamiento
If CheckBox1.Value = True Then
TextBox10.Text = 0.15 * TextBox26.Text * ((TextBox7.Text / 2) + 1)
eg = (Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text) + (Val(TextBox13.Text) / 2))
ed = eg / Val(TextBox14.Text)
TextBox16.Text = Format(ed, "0.00%")
TextBox15.Text = Val(TextBox14.Text) - eg
Else
TextBox10.Text = 0.15 * (Val(TextBox26.Text)) * (Val(TextBox7) + 1)
eg = (Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text) + (Val(TextBox13.Text)))
ed = eg / Val(TextBox14.Text)
TextBox16.Text = Format(ed, "0.00%")
TextBox15.Text = Val(TextBox14.Text) - eg
End If
' Menos de 2 salarios de ingreso
If TextBox14.Text < 2 * TextBox26.Text Then
If ed < 0.6 Then
Menosd = 160
Else
If ed <= 0.7 Then
Menosd = 115
Else
If ed <= 0.8 Then
Menosd = 60
Else
If ed <= 0.9 Then
Menosd = 0
Else
Menosd = -350
End If
End If
End If
End If
Else
' Mas de 2 salarios de ingreso
If ed < 0.5 Then
Masd = 160
Else
If ed <= 0.6 Then
Masd = 110
Else
If ed <= 0.7 Then
Masd = 60
Else
If ed <= 0.8 Then
Masd = 0
Else
Masd = -350
End If
End If
End If
End If
End If
End If
Private Sub CommandButton2_Click()
Dim dato
dato = 2
Hoja3.Select
Range("A1") = internas
Range("B1") =...

1 Respuesta

Respuesta
1
Tal vez con tantas líneas de código y sin conocer tu formulario, calculo que tu pregunta final apunta a poder determinar dónde dejar los resultados de las selecciones. Así, donde dice:
Range("A1") = internas
Diga la línea siguiente a la ocupada por el último dato.
Si, por casualidad, esta fuera tu duda, suelo determinar esa posición en el mismo macro que lanza el formulario (que no veo entre lo que enviaste). Algo así como:
Public HojaDest, LCol, LCell
Sub FormCarga()
'==================
HojaDest = "Hoja3"
Firstcell = "A1"
'==================
Sheets(HojaDest).Select
Range(Firstcell).Select
LCol = Selection.Column
LCell = Selection.Row
LCell = LCell + Selection.CurrentRegion.Rows.Count
UserForm1.Show
End Sub
(Hay dos variables entre las lineas de ==== que deberás reemplazar por tus datos propios. Corresponden a la hoja donde se deben volcar los datos y la primer celda superior de la derecha donde comienza tu tabla)
Esta macro sirve para identificar la última celda ocupada en la hoja de carga y luego activa el formulario.
Obviamente, si se seguirán ingresando datos durante la ejecución del formulario, luego de efectuar un vuelco de datos en la hoja, tendrás que agregar una linea que incremente la variable LCell.
O sea:
LCell = LCell + 1
De todas maneras, cada vez que ingresas, la macro recuenta las líneas ocupadas.
Bueno, Jorge, pruébalo y dime si es esto lo que necesitabas.
Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
aclarando qué entendí mal o qué faltó.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Eliminar error en tiempo de ejecución 13

Estoy trabajando con macros en excel 2010 y tengo un userform para el cual utilizo el código abajo descrito, todos los textbox me los llena bien pero al momento de aceptar y enviar los datos a las celdas respectivas me manda el error "error en tiempo...
1 respuesta

Sumar columnas MSFlexgrid en VB6.0

Recibe un cordial saludo por este medio, y nuevamente solicitando tu apoyo, te comento estoy tratando de sumar varias columnas de un msflexgrid pero a la vez deben de cumplir unas condiciones para que se sume su valor. Mi msflexgrid se llama...
1 respuesta

Como convertir números en letras ... Complemento

¿Podrás complementar el código " Como convertir números en letras" - con números decimales y moneda en Pesos? Para efectos de recibos México
1 respuesta

Combobox-textbox asociado llevar dato a columna excel

Tengo 5 combobox con las mismas opciones (cada uno tiene 10 materiales) la idea es en el textbox registrar cantidad. Esa cantidad debe llevarse a tabla resumen de excel pero a una columna especifica. No se como se hace pues lo he intentado con if...
1 respuesta

Calculadora en VB

Estoy haciendo un programa en Visual Basic 6 sobre una calculadora y no consigo que cuando los números son decimales y hago una operación al dar igual me apaezcan los decimales; por ej: 12,5+3=15,5 pues yo solo obtengo 15. ¿Qué código tendría que...
1 respuesta

Ayuda para mejora de centro numérico

ALGUIEN ME PODRÍA AYUDAR A MEJORAR MI PROGRAMA DE CENTROS NUMÉRICOS(Un centro numérico es un número que separa una lista de números enteros (comenzando en 1) en dos grupos de números, cuyas sumas son iguales. El primer centro numérico es el 6, el...
1 respuesta

CheckBox

Tengo una base de datos creado en un userform con textbox, combobox, etc., toda la información que ingresa me lo manda a la hoja uno al darle insertar con un commandbutton, también con otro commandbutton con el nombre de buscar, encuentra la...
2 respuestas

Validación de números enteros (sin decimales)

Necesito que me ayudes con un pequeño problema que tengo, si eres tan amable. Necesito crear un programa que capture un numero y me diga si es par o impar (Par= que es divisible entre dos, impar= que solo es divisible entre el mismo y la unidad). Dim...
1 respuesta

Sumar varios en un textbox

Como estas... Por favor necesito otra ayuda .. Necesito sumar varios productos en un texbox.. Mi código esta así: Private Sub Text16_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If IsNumeric(Text16) Then Dim precio As Double Dim iva As Double...
1 respuesta