• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Sütun sayfa ilişkisi sorun 2

Cem12

Yeni Üye
Katılım
30 Eyl 2018
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
37
Konum
Ankara
Ad Soyad
Cem Çakmak
Merhaba arkadaşlar daha önce bu konuda
Çözüldü - Sütun sayfa ilişkisi
sorunum çözülmüştü.Ancak Makroyu kullandıkça bir sorun keşfettim.Çözemedim.
Eğer A sütununda aynı değerden iki adet varsa makro birine işlem yapıyor.Ayrıca sorumu biraz daha geliştirdim

Yardımcı olabilirseniz sevinirim
 

Ekli dosyalar

  • deneme.xlsx
    15.1 KB · Görüntüleme: 4

Ömer BARAN

Yeni Üye
Katılım
17 Ağu 2018
Mesajlar
38
En iyi yanıt
0
Puanları
8
Konum
Ankara, İstanbul
Ad Soyad
Ömer BARAN
Merhaba.

İstediğinizin aşağıdaki kod ile olması gerekir.
Rich (BB code):
Sub SAYFA_YAZDIR()
For sat = 1 To Sheets("GENEL").Cells(Rows.Count, 1).End(3).Row
    If Sheets("GENEL").Cells(sat, 1) <> "" Then
        For Each shf In ThisWorkbook.Sheets
            If shf.Name = UCase(Sheets("GENEL").Cells(sat, 1)) Then
                Sheets("Sayfa3").[B5] = Cells(sat, 2)
                Sheets("Sayfa3").[B6] = Cells(sat, 3)
                Sheets("Sayfa3").[B7] = Cells(sat, 4)
                shf.PrintOut Copies:=1, Collate:=1, IgnorePrintAreas:=0
                Exit For
            End If
        Next
    End If
Next
End Sub
 
Üst Alt