Sayfa Sayısına Göre Koşul Ekleme.

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sayfa Sayısına Göre Koşul Ekleme.

İleti#1)  sinan05 » 11 Oca 2022 13:27

İyi günler. Kitab1 dosyasının sayfalarını saydırmak istiyorum. Daha doğrusu kitab1 de 10 dan az sayfa varsa koşulu kodla nasıl yazılır.Arzu ettiğimse, Makro kitab1 de ki sayfa sayısını tespit edicek sonra arkasından bende kitab1 den 10 dan az sayfa varsa şunu yap dicem.
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 21:37
Meslek: ticari-binek oto alım satım.
Yaş: 39
İleti: 186
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Sayfa Sayısına Göre Koşul Ekleme.

İleti#2)  halily » 11 Oca 2022 14:16

If ThisWorkbook.Sheets.Count<10 then...
Kodu işinize yarayabilir
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 711
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Sayfa Sayısına Göre Koşul Ekleme.

İleti#3)  sinan05 » 11 Oca 2022 14:29

halily yazdı:If ThisWorkbook.Sheets.Count<10 then...
Kodu işinize yarayabilir


HALİLY Hocam teşekkür ederim. Peki ben aşağıya eklediğim kodlarla klasördeki dosyaları gezdiriyorum; bu koşulu tüm klasördeki dosyalarda geçerli kılmak için, "If dosyam.Sheets(i).Sheets.Count<10 then" ifadesini kullansam tüm dosyaları gezip bu koşulu uygularmı.?

Dim evn As Object, klasoradi As String, kitap As Workbook
Dim i As Integer, x As Integer, dosyam As Workbook
Set s1 = Sheets("ARAÇ KAYIT")
Set s2 = Sheets("ÖRNEK TASLAK")
Set s3 = Sheets("ARAÇ LİSTESİ")
ad = s1.Cells(1, "Q").Value
ad1 = s1.Cells(4, "B") & s1.Cells(5, "B").Value
Set kitap = ThisWorkbook
klasoradi = "ARAÇ KAYITLARI"
If ad = "" Then MsgBox "Müşteri adı-soyadı giriniz": Exit Sub
Set ds = CreateObject("Scripting.FileSystemObject")
yol = ThisWorkbook.Path & "\"
Set evn = CreateObject("scripting.filesystemobject")
Set dosyalar = evn.getfolder(ThisWorkbook.Path & Application.PathSeparator & klasoradi)
For Each klasor In dosyalar.Files
Set dosyam = Application.Workbooks.Open(klasor.Path)
For i = 1 To dosyam.Sheets.Count
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 21:37
Meslek: ticari-binek oto alım satım.
Yaş: 39
İleti: 186
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy

Cevap: Sayfa Sayısına Göre Koşul Ekleme.

İleti#4)  halily » 11 Oca 2022 14:44

Sheets komutları sayfalarla ilgilidir oysa sizin kitaplar ile ilgili bir koda ihtiyacınız var
Kodu
Kod: Tümünü seç
dosyam.sheets.count
kodu kullanilabilr
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 711
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Sayfa Sayısına Göre Koşul Ekleme.

İleti#5)  sinan05 » 11 Oca 2022 14:54

halily yazdı:Sheets komutları sayfalarla ilgilidir oysa sizin kitaplar ile ilgili bir koda ihtiyacınız var
Kodu
Kod: Tümünü seç
dosyam.sheets.count
kodu kullanilabilr


Çok Teşekkürler hocam. Aslen 3 den küçükse sayfa ekle 3 e eşitse dosya ekle yapmaya çalışıyorum. Şartları uyduramıyorum. Çünkü 3 den küçükse ekliyor bu sefer 3 e eşit olduğu için hem sayfa ekleyip hemde dosya ekliyor. aynı kayıttan 2 tane oluyor hocam. nasıl bir koşul yazdırmalıyım sizce.
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 21:37
Meslek: ticari-binek oto alım satım.
Yaş: 39
İleti: 186
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 1 misafir

Bumerang - Yazarkafe