Temat: Makro - mała korekta

Nietypowe pytanko.
Mam makro - które ściąłem z netu z jakiegoś przykładu.
Makro działa ale mam problem w jednym miejscu. Dopisałem sobie jedną kolumnę. Niestety mój wpis to funkcja MID która wstawia w każdy wiersz taką samą formułę. A ja chciałbym aby się wstawiała kolejna komórka.
W tej chwili wydruk jest taki:

=FRAGMENT.TEKSTU(B3;9;2)
=FRAGMENT.TEKSTU(B3;9;2)
=FRAGMENT.TEKSTU(B3;9;2)
=FRAGMENT.TEKSTU(B3;9;2)

a powinno być tak

=FRAGMENT.TEKSTU(B3;9;2)
=FRAGMENT.TEKSTU(B4;9;2)
=FRAGMENT.TEKSTU(B5;9;2)
=FRAGMENT.TEKSTU(B6;9;2)

Jak powinien wyglądać wpis w tym makro?

Fragment makra:
=========================================
ostWiersz = Sheets("Magazyn").Cells(Sheets("Magazyn").Rows.Count, "C").End(xlUp).Row
j = 0

For x = 3 To ostWiersz
If Sheets("Menu").Range("C15") = Sheets("Magazyn").Cells(x, 2) Then
j = j + 1
Sheets("FW1").Cells(j + 2, 2) = Sheets("Magazyn").Cells(x, 1)
Sheets("FW1").Cells(j + 2, 3) = Sheets("Magazyn").Cells(x, 2)
Sheets("FW1").Cells(j + 2, 4) = Sheets("Magazyn").Cells(x, 3)
Sheets("FW1").Cells(j + 2, 5) = Sheets("Magazyn").Cells(x, 4)
Sheets("FW1").Cells(j + 2, 6) = Sheets("Magazyn").Cells(x, 5)
Sheets("FW1").Cells(j + 2, 7) = "=MID(B3,9,2)" -----(nie umiem tego napisać tak aby się zmieniało w wierszach, B3 w tym przypadku to jest pierwsza kolumna czyli to co sie wstawia z Sheets("FW1").Cells(j + 2, 2) = Sheets("Magazyn").Cells(x, 1) )-------
Sheets("FW1").Cells(j + 2, 8) = "=COUNTIF($G$3:G33,$G$3:G33)"
End If

Next x
=======================================
Będę wdzięczny za pomoc specjalistów w tym temacie ;-)

Temat: Makro - mała korekta

A po co to literujesz w pętli?
=FRAGMENT.TEKSTU(B3;9;2)
po przeciągnięciu w dół otrzymujesz B4,B5,B6...

Ale jak tego pow nie rozumiesz to zmień w pętli:

zamiast

Sheets("FW1").Cells(j + 2, 7) = "=MID(B3,9,2)"

to daj

Sheets("FW1").Cells(j + 2, 7) = "=MID(" & Cells(j + 2, 2).Address(0, 0) & ",9,2)"

Temat: Makro - mała korekta

Jesteś WIELKI!
Działa!
Dziękuję!

Temat: Makro - mała korekta

Jeśli potrzebujesz automatyzować zadania w Excelu, i nie tylko, to zapraszam tutaj http://vbatools.pl/lista-aplikacji/
Pozdrawiam