SÜTUNDAKİ İLK VE SON VERİ ARASINI KOŞULLU YAZDIRMA

[mfgo@hotmail.com]

Merhabalar Ekteki dosyada v sütunundaki sürekli değişen ilk veri ile son veri arasını yazdırma alanı belirtip çıktı almak istiyorum. Ben kod yazdım ama eksik kaldı istediğim sonuca ulaşamıyorum

 

[YUSUF44]

Hangi satırların yazılacağı nasıl belirleniyor?

 

[mfgo@hotmail.com]

Hangi satırların yazılacağı nasıl belirleniyor?

MERHABA
RAHATSIZDIM BİR SÜREDİR.
BUGÜN İŞE GELEBİLDİM

"Hazırla" butonuna basılınca son satırın hemen yanına yazılacak alan belirleniyor.

 

[YUSUF44]

Geçmiş olsun.

Hazırla düğmesi her seferinde farklı kopyalama mı yapıyor ki yazdırma alanı değişsin? Her seferinde V16'ya kadar veri kopyalamıyor mu? Neden doğrudan sayfa alanını V7:V16 olarak belirlemiyorsunuz da değişken makro yazmaya çalışıyorsunuz?

 

[mfgo@hotmail.com]

hocam hazırla düğmesi her seferinde son satırlardaki bilgileri alıyor ve alt alta sıralıyor. alt alta sıralanan verileri yazdırma alanına almak istiyorum

 

[YUSUF44]

Hazırla düğmesi her seferinde verileri V7:V16'ya aktarmıyor mu? NEden yazdırma alanını V7:V16 olarak belirlemiyoruz?

 

[YUSUF44]

Yani Hazırla düğmesine bastık ve son veriler V7:V16'ya aktarıldı. sonra bir daha bastığımızda yine V7:V16'ya aktarılmıyor mu?

 

[mfgo@hotmail.com]

Merhaba Yusuf Hocam
Hazırla düğmesine bastık ve son veriler B7-q7 arasındaki V7:V16'ya aktarıldı
b8-q8 arasındaki veriler hazırla dedediğimizde v8:v17 ye aktarıyor

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

Sub Hazırla()
[V:V] = ""
a = Cells(Rows.Count, "B").End(3).Row
Cells(a, "V") = Cells(a, "A")
Cells(a + 1, "V") = Cells(a, "B")
Cells(a + 2, "V") = Cells(a, "D")
Cells(a + 3, "V") = Cells(a, "E")
Cells(a + 4, "V") = Cells(a, "F")
Cells(a + 5, "V") = Cells(a, "G")
Cells(a + 6, "V") = Cells(a, "H")
Cells(a + 7, "V") = Cells(a, "J")
Cells(a + 8, "V") = Cells(a, "M")
Cells(a + 9, "V") = Cells(a, "N")

ActiveSheet.PageSetup.PrintArea = "$V$" & a & ":$V$" & a + 9
    
End Sub

 

[mfgo@hotmail.com]

HOCAM TEŞEKKÜR EDERİM İLGİNİZE ALLAH RAZI OLSUN.