otomatik yazdırma

[qasha]

merhaba
81 il 923 ilçe için bir tablomuz var.
örnek vermek gerekirse
adana merkez 30.000
adana Aladağ 3.000
adana Ceyhan 3.000
adana Çukurova 2.000
adana Feke 1.500
adana İmamoğlu 2.500
adana Karaisalı 3.500

il ve ilçerlerin yazılı olduğu tablonun yanına yönetici yeni bir rakam söyliyecek rakam girildilkten sonra bir buton yardımı ile 2. sayda bulunan sabit yazıya buradaki 3 satırın bilgisi gidecek ve yazdıracağız.
sonra 2. satır için yeni bir rakam girilecek tekrar buton ile 2. sayda bulunan sabit yazıya buradaki 3 satırın bilgisi gidecek ve yazdıracağız.

1. satıra rakam girilecek ve yazdırılacak
2. satıra takam girilecek ve yazıdırılacak

işlemler tek tek ilerliyecek

bunu nasıl yaparız tesekkürler.

 

[YUSUF44]

Verilerinizin Sayfa1'de, çıktı alınacak sayfanın ise Sayfa2 olduğunu düşünerek; değişern satırdaki A sütunundaki veri Sayfa2'de B1 hücresine, B sütunu B2 hücresine ve C sütunu da B3 hücresine gelecek şekilde olacaksa aşağıdaki kodları sayfa1'in kod bölümüne (sayfa ismine sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırın. Sayfa1'de C sütunundaki değer değiştikçe o satırın verileri sayfa2'ye aktarılır ve sayfa2 yazdırılır:

Private Sub Worksheet_Change(ByVal Target As Range)
son = WorksheetFunction.Max(2, Cells(Rows.Count, "a").End(3).Row + 1)
If Intersect(Target, Range("C2:C" & son)) Is Nothing Then Exit Sub
Sheets("Sayfa2").[B1] = Target.Offset(0, -2)
Sheets("Sayfa2").[B2] = Target.Offset(0, -1)
Sheets("Sayfa2").[B3] = Target
Sheets("Sayfa2").PrintOut
End Sub

 

[qasha]

Verilerinizin Sayfa1'de, çıktı alınacak sayfanın ise Sayfa2 olduğunu düşünerek; değişern satırdaki A sütunundaki veri Sayfa2'de B1 hücresine, B sütunu B2 hücresine ve C sütunu da B3 hücresine gelecek şekilde olacaksa aşağıdaki kodları sayfa1'in kod bölümüne (sayfa ismine sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırın. Sayfa1'de C sütunundaki değer değiştikçe o satırın verileri sayfa2'ye aktarılır ve sayfa2 yazdırılır:

Private Sub Worksheet_Change(ByVal Target As Range)
son = WorksheetFunction.Max(2, Cells(Rows.Count, "a").End(3).Row + 1)
If Intersect(Target, Range("C2:C" & son)) Is Nothing Then Exit Sub
Sheets("Sayfa2").[B1] = Target.Offset(0, -2)
Sheets("Sayfa2").[B2] = Target.Offset(0, -1)
Sheets("Sayfa2").[B3] = Target
Sheets("Sayfa2").PrintOut
End Sub

exlcell 2011 mac kullanıyorum kod kısmını o şelilde açamadım
örnek dosya burada
http://dosya.co/bvcx9uw4tbvz/Workbook1.xlsx.html

butona bu kodu ekledigimde compile error expected end sub dior.

aslında istenen otomatik yazdırmak değil butona her basıldıgında ılgı satırdakı verılerı dıger sayfaya geçmesi
her satırın yanında 1 buton olabılır yada daha pratik nasıl olursa



yardımcı olursanız sevinirim iyi aksamlar

 

[YUSUF44]

Mac'te makro oluyor mu, oluyorsa nasıl oluyor bilmiyorum maalesef.

Örneğin Pardus'ta Windows için yazılan makro çalışmıyor. Linux için ayrı kod kullanılması gerekiyor. Muhtemelen mac için de farklı kod yapısı kullanılıyordur.