/ / ¿Cómo puedo pasar dos variables de dos cuadros combinados a un sub? - excel, vba, excel-vba

¿Cómo puedo pasar dos variables de dos cuadros combinados a un sub? - excel, vba, excel-vba

Tengo dos cuadros combinados. cada cuadro combinado da como resultado una variable. Quiero pasar estas dos variables (wc1 y wc2) a otro sub.
Mi código no funciona.

Public Sub ComboBox1_Change()
wc1 = Sheets("Book1").Cells(1, 3).Address()
End Sub
Public Sub ComboBox2_Change()
wc2 = Sheets("Book1").Cells(2, 3).Address()
End Sub
Public Sub thirdf()
Dim tval As String
Set lola = Sheets("Book1").Range(wc1 & ":" & wc2)
For Each cel In lola
tval = tval & cel.Value
Next
Cells(1, 7).Value = tval

End Sub

Respuestas

0 para la respuesta № 1

Según el comentario de javad, elimine los métodos de Dirección y use Range (wc1, wc2).


0 para la respuesta № 2
Public Sub ComboBox1_Change()
thirdf Sheets("Book1").Cells(1, 3).Address,Sheets("Book1").Cells(2, 3).Address
End Sub

Public Sub ComboBox2_Change()
thirdf Sheets("Book1").Cells(1, 3).Address,Sheets("Book1").Cells(2, 3).Address
End Sub

Public Sub thirdf(c00,c01)
For Each cl Sheets("Book1").Range(c00 &":" & c01)
tval = tval & cl.Value
Next
sheets("Book1").Cells(1, 7).Value = tval
End Sub