Kód: Vybrat vše
Option Explicit
Public pom As Integer
Public prac As Integer
Sub zapis()
Dim k1 As Integer
Dim k2 As Integer
Dim k3 As Integer
Worksheets("V1").Select
k1 = 7
k2 = 53
k3 = 99
prac = k1: Call davka
prac = k2: Call davka
prac = k3: Call davka
End Sub
Sub davka()
pom = Sheets("M1").Cells(prac - 1, 9)
Cells(3, 2) = Sheets("M1").Cells(prac + pom, 14)
End Sub