L5 ve L7 hucresi ne 1 den başlayıp 20 ye kadar değer girmek istiyorum. L5 hucresine 1 girdigimde "sistemdeki apron plakaları" sayfasından veri alıp "sayfa2" deki formul yazdıgım yerlere ilgili bilgileri atayıp yazdır diyorum. sonra L5 hucresine 3 yazdıgımda veriler geliyor "sayfa2" ye. yine yazdır diyorum.
Dim i As Integer
For i = 1 To 3 Step 2
Sayfa2.Cells(5, 12).Value = Sayfa1.Cells(i, 1).Value
Sayfa2.Cells(7, 12).Value = Sayfa1.Cells(i + 1, 1).Value
ActiveWorkbook.Save
Sheets("Sayfa2").PrintOut
Next
otomatikleştirmek icin boyle bir kod yazdım. ama makroyu çalıştırdığımda sayfada L5 ve L7 hucresinde ilk başta ne yazıyorsa butun sayfalarda onları cıkartıyor.
ama ben once L5 'e 1, L7'ye 2 yazsın. 1ve 2 girdikten sonra diğer sayfadan değerleri göstersin(sayfa2 de F5,F6,F7,F8 e formul girdim L5 ve L7 ile baglantılı olarak) ve cıktısını alayım. sonra L5 e 3 ve L7'ye 4 yazsın değerler sayfa 2 de gözüksün cıktı alayım. bu seiklde devam etsin. acaba bu yazdırma işlemini nasıl yapabilirim? yardımcı olursanız cok sevinirim.
Dim i As Integer
For i = 1 To 3 Step 2
Sayfa2.Cells(5, 12).Value = Sayfa1.Cells(i, 1).Value
Sayfa2.Cells(7, 12).Value = Sayfa1.Cells(i + 1, 1).Value
ActiveWorkbook.Save
Sheets("Sayfa2").PrintOut
Next
otomatikleştirmek icin boyle bir kod yazdım. ama makroyu çalıştırdığımda sayfada L5 ve L7 hucresinde ilk başta ne yazıyorsa butun sayfalarda onları cıkartıyor.
ama ben once L5 'e 1, L7'ye 2 yazsın. 1ve 2 girdikten sonra diğer sayfadan değerleri göstersin(sayfa2 de F5,F6,F7,F8 e formul girdim L5 ve L7 ile baglantılı olarak) ve cıktısını alayım. sonra L5 e 3 ve L7'ye 4 yazsın değerler sayfa 2 de gözüksün cıktı alayım. bu seiklde devam etsin. acaba bu yazdırma işlemini nasıl yapabilirim? yardımcı olursanız cok sevinirim.
Son düzenleme: