Sub Macro1()
Dim Red4e As Long
Dim Kolonka As String
Dim List4e As String
Dim ListDanni As String

ListDanni = "NASTROIKI" 'там както ти се казва листа в който са клетките
List4e = Sheets(ListDanni).Cells(7, 2).Value 'ред 7,колона 2 - B7
Red4e = Sheets(ListDanni).Cells(6, 1).Value 'ред 6 колона 1 - клетка A6
Kolonka = Sheets(ListDanni).Cells(7, 3).Value 'ред 7 колона 3 - клетка C7
Sheets(List4e).Select 'избира новия лист
Kolonka = Kolonka + "" & Red4e 'залепя към буквата, цифрата
Range(Kolonka).Select 'избира клетката в избрания вече лист
End Sub


ако нещо не е ясно - питай

Редактирано от БaтиГoгo на 26.04.13 12:04.