Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 20-11-2017, 21:01   #1
qasha
 
Giriş: 20/11/2017
Şehir: ankara
Mesaj: 3
Excel Vers. ve Dili:
2011 mac english
Varsayılan otomatik yazdırma

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.

Bu mesaj en son " 20-11-2017 " tarihinde saat 21:08 itibariyle qasha tarafından düzenlenmiştir....
qasha Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-11-2017, 21:38   #2
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,252
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Yok maalesef.
Varsayılan

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:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 20-11-2017, 22:00   #3
qasha
 
Giriş: 20/11/2017
Şehir: ankara
Mesaj: 3
Excel Vers. ve Dili:
2011 mac english
Varsayılan

Alıntı:
YUSUF44 tarafından gönderildi Mesajı Görüntüle
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:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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

Bu mesaj en son " 20-11-2017 " tarihinde saat 22:12 itibariyle qasha tarafından düzenlenmiştir....
qasha Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-11-2017, 22:49   #4
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,252
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Yok maalesef.
Varsayılan

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.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:53


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden