Otomatik VAR/YOK yazsın

[Mdemir63]

Arkadaşlar iyi akşamlar

Bu tabloda Şube Sütünuna A yazdığımda Sonuç sütünuna VAR
B yazdığımda Sonuç sütünuna YOK yazsın bu işlemi otomatik olarak nasıl yaptırabilirim.

Saygılar

Dosya Ekte

 

[Ali]

D2 hücrenize
=EĞER(C2="A";"VAR";EĞER(C2="B";"YOK";"")) yazıp aşağı doğru çoğaltın.

 

[kombo]

Sn komutan63

Affınıza sığınarak bir şey sormak istiyorum. Genelde açmış olduğunuz konular forumda defalarca işlenmiş konular.
Acaba, yeni konu açmadan önce forum içinde arama yapmak aklınıza hiç gelmiyormu?

Forum Kuralları
.
.
8- Forumu hergün takip ederek öğrenmeye ve cevaplamaya çalışan arkadaşlarımızın yerine koyun kendinizi ve bir günde 5 defa aynı sorunun sorulup cevaplandığını düşünün. Son soranda siz olursanız aynı soruyu birçok üye cevabın bulunduğu linki vermeye bile üşenecektir. Oysa sormadan önce forumun "ARA" fonksiyonunu kullansanız geçmiş sorularda şimdi alacağınızdan çok daha iyi cevaplar bulma şansınız daha yüksek. Ancak bulamazsanız, yada yeterli olmazsa bu durumuda bildirerek sorunuzu sorduğunuzda istediğiniz cevapları alma şansınız artacaktır.
.
.

 

[Mdemir63]

Ali Hocam Merhaba

önce teşekkür ederim. ayrıca hocam bu verdiğiniz fomülü şu soruya nasıl uygulayabilirim.

soru: Sayfa1 i yazdırdığımda otomatik sonuca 1 yazsın
Sayfa2 yi yazdırdığımda bu defa 2 yazsın

bu soruyu sizin verdiğiniz formüle uygulamaya çalıştım ama yapamadım

Saygılar

 

[Mdemir63]

Sn komutan63

Affınıza sığınarak bir şey sormak istiyorum. Genelde açmış olduğunuz konular forumda defalarca işlenmiş konular.
Acaba, yeni konu açmadan önce forum içinde arama yapmak aklınıza hiç gelmiyormu?

Sn: Kombo önce inanın ki araştırıyorum eğer benim istediğim gibi örnekler var mı diye ancak bulduklarımı kendime uyarlamaya çalıştığım da başarılı olamıyorum. Eğer yanlış bir şey yapıyorsam tüm arkadaşlardan özür dilerim. birde çok yeniyim biraz mazur görürseniz sevinirim.
ama daha dikkatli davranıp her zamankinden daha fazla araştıma yapacağım
Saygılar

 

[AS3434]

soru: Sayfa1 i yazdırdığımda otomatik sonuca 1 yazsın
Sayfa2 yi yazdırdığımda bu defa 2 yazsın

Sorunuzdan ve dosyanızdan birşey anlaşılmıyor. Daha açık ve net sorarmısınız.

 

[Mdemir63]

Sn: As3434 günaydın

hocam ben tam olarak şunu istiyorum . Örnek olarak söylüyorum excel dosyası açtığımızda hani Sayfa1, Sayfa2 ve Sayfa3 diye sayfalarımız varya Ben burada birinci sayfayı print (yazdır) dediğimde Sayfa3 de A1 Hüresine VAR, İkinci sayfayı Print (Yazdır) dediğimde yine Sayfa3 deki A1 hücresin YOK yazsın istiyorum

hocam saygılar sunuyorum

 

[kombo]

Sn komutan63
İstediğiniz böyle birşeymi.

 

[Mdemir63]

Günaydın arkadaşlar

Hocam elinize sağlık ama benim istediğim tam öyle değil çünkü bu sizin yaptığınızda her sayfada yazdır butonu var hemde hep A1 hücresine yazıyor ben aşağıya doğru her bir yazdırma işlemi için yazsın istiyorum bunun içinde size örnek gönderiyorum.

Saygılar sunuyorum

Dosyayı ekledim

 

[Mdemir63]

Sn. Ali hocam şu yaptığınız Formülü En son gönderdiğim dosyaya uyarlayamadım ya da kodlarla nasıl yapabilirim bakabilirmisiniz.

Saygılar

 

[Seyit Tiken]

Kod örneğini inceleyiniz.

Sub Düğme1_Tıklat()
Sheets("Sayfa1").PrintOut
Sheets("Sayfa3").[A1] = "Var"
End Sub
--------------------------
Sub Düğme3_Tıklat()
Sheets("Sayfa2").PrintOut
Sheets("Sayfa3").[A1] = "Yok"
End Sub

 

[Mdemir63]

Günaydın Sn: Seyit Tiken

Hocam bu kodları uygulamaya çalıştım ama başarısız oldum. Kodları nereye ve kendi dosyama göre nerelere uygulayabilirim.

Saygılar

Dosya ekte

 

[Ali]

Yazdır butonuna aşağıdaki kodları ekleyiniz.

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Worksheets("Sonuç").Cells(65536, 1).End(xlUp).Offset(1, 0).Value = "VAR"
End If
If OptionButton2.Value = True Then
Worksheets("Sonuç").Cells(65536, 1).End(xlUp).Offset(1, 0).Value = "YOK"
End If
End Sub

 

[Mdemir63]

Günaydın Ali Hocam

Eline sağlık tam istediğim gibi ancak Sonuç sayfasında A sütununa A2 den başlayarak yazıyor A3 den başlasın istiyorum kodlarda neresini değiştirmem gerekiyor, birde A sütünu yerine aynı sayfada örneğin C veya herhangi bir sütununa yazdırmak istediğimde kodların neresini değiştirmeliyim

Saygılar sunuyorum

 

[Mdemir63]

Hocam hepsi tamam sadece A3 hücresinden başlatamıyorum

 

[Ali]

A3 den başlasın istiyorum kodlarda neresini değiştirmem gerekiyor,

Offset(2, 0) olarak değiştirin.

C veya herhangi bir sütununa yazdırmak istediğimde kodların neresini değiştirmeliyim
Saygılar sunuyorum

C sütunu için Cells(65536, 3)
D sütunu için Cells(65536, 4) şeklinde değiştirmelisiniz.

 

[Mdemir63]

Hocam
Offset(2, 0) olarak değiştirdim ama bu defa A3 den başlıyor fakat birer satır atlıyor

 

[Ali]

Pardon ben yanlış anladım sanırım.En pratik yolu A1 ve A2 hücrelerinizde dolu veri olmasıdır.Dolayısıyla kod direk A3'ten başlayacaktır.

 

[Mdemir63]

Hocam tamam
iyi çalışmalar