Llamar madulo desde un macro
Hola,
tengo un macro en una hoja (sheet1), bueno lo que quiero es llamar un modulo desde la macro que esta en hoja 1, la verdad ya le busque pero no supe como,
este es el macro que tengo en la hoja 1
Private Sub worksheet_change(ByVal Target As Range)
If Target.Column = 3 Then
If Target.Row > 20 Then
Call inicio(Target)
End If
End If
End Sub
y este es que quiero poner en un madulo:
Sub inicio(tar As Range)
Dim n As Range
r = tar.Row
part = Cells(r, 3).Value
'**************************Empieza Macro*****************************************
Application.Workbooks.Open "C:\Documents and Settings\rubenl\Desktop\excel\Requisition\prueba.xls"
Workbooks("prueba.xls").Activate
Worksheets("whs").Activate
part1 = Range("a2").Value
Set n = [a:a].Find(what:=part)
If n Is Nothing Then
Workbooks("plantilla.xls").Activate
Worksheets("sheet1").Activate
Cells(r, 3).Value = ""
MsgBox " NO PART MATCH YOUR SELECTION"
Else
x = n.Row
y = n.Column
desc = Cells(x, y + 4).Value
onhand = Cells(x, y + 2).Value
um = Cells(x, y + 7).Value
Location = Cells(x, y + 5).Value
Workbooks("plantilla.xls").Activate
Worksheets("sheet1").Activate
Cells(r, 6).Value = desc
End If
Set n = Nothing
'***************************Termina Macro********************************
End Sub
Espero y me puedan ayudar,
Gracias, ruben
tengo un macro en una hoja (sheet1), bueno lo que quiero es llamar un modulo desde la macro que esta en hoja 1, la verdad ya le busque pero no supe como,
este es el macro que tengo en la hoja 1
Private Sub worksheet_change(ByVal Target As Range)
If Target.Column = 3 Then
If Target.Row > 20 Then
Call inicio(Target)
End If
End If
End Sub
y este es que quiero poner en un madulo:
Sub inicio(tar As Range)
Dim n As Range
r = tar.Row
part = Cells(r, 3).Value
'**************************Empieza Macro*****************************************
Application.Workbooks.Open "C:\Documents and Settings\rubenl\Desktop\excel\Requisition\prueba.xls"
Workbooks("prueba.xls").Activate
Worksheets("whs").Activate
part1 = Range("a2").Value
Set n = [a:a].Find(what:=part)
If n Is Nothing Then
Workbooks("plantilla.xls").Activate
Worksheets("sheet1").Activate
Cells(r, 3).Value = ""
MsgBox " NO PART MATCH YOUR SELECTION"
Else
x = n.Row
y = n.Column
desc = Cells(x, y + 4).Value
onhand = Cells(x, y + 2).Value
um = Cells(x, y + 7).Value
Location = Cells(x, y + 5).Value
Workbooks("plantilla.xls").Activate
Worksheets("sheet1").Activate
Cells(r, 6).Value = desc
End If
Set n = Nothing
'***************************Termina Macro********************************
End Sub
Espero y me puedan ayudar,
Gracias, ruben
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1