Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • İşletim Sistemleri ve Yazılımlar
  • Yazılım Genel
  • Ofis Uygulamaları
  • Bu Konuda
Şimdi Ara

VBA excel YARDIM

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
4
Cevap
0
Favori
425
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Merhaba arkadaşlar;

    bir konuda yardıma ihtiyacım var. Yardımcı olursanız sevinirim.

    Bir Excel dosyasında Sayfa1'den başalayan belirsiz sayıda sayfa var.
    Macrolu olan Excel dosyasına bu sayfaları belirli bir isimle kayıt etmek istiyorum.

    excel1
    sayfa1
    sayfa2
    sayfa

    macrolu excele
    SayfaA
    SayfaB
    SayfaC

    şeklide kopyalamasını istiyorum. Ama kaç sayfa olduğu belirsiz bir excel olunca döngüyü nasıl sağlarım.

    şimdiden teşekkürler



  • ThisWorkbook.Worksheets.Count ile dosyadaki sayfa sayısını öğrenebilirsiniz.

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • 'seçilen excel dosyasını,ismin ve yolunu tanımlar
    dosya = Application.GetOpenFilename(fileFilter:="," & _
    "*.xlsx;**.xlxm", _'uzantı filtresi
    Title:="Lütfen dosya seçimi yapınız")

    If dosya = False Then
    Exit Sub

    Else
    dosyaadi = Mid(Dir(dosya), 1, Len(Dir(dosya)) - 4)
    yol = Mid(dosya, 1, Len(dosya) - Len(Dir(dosya)))
    uzanti = Mid(Dir(dosya), Len(Dir(dosya)) - 2, 4)


    Workbooks.Open Filename:=dosya 'seçilen dosyayı açar
    For I = 1 To Worksheets.Count 'dosyadaki sayfaları sayar
    If Worksheets(I).Name = "Sayfa" & WsNo + 1 Then 'sayfa1 den başlayarak
    Sheets("Sayfa" & WsNo + 1).Select 'sayfayı seçer
    Range("A1:S400").Select 'istenilen hücreleri seçer
    Selection.Copy 'seçilenleri kopyalar
    ActiveWindow.WindowState = xlMinimized 'seçerek açtığımız dosyayı aşağı indirir

    Dim isim As String 'macronun oladuğu excel dosyasında yeni açılacak sayfanın ismini tanımlar
    isim = "YAPIMESKI" & WsNo + 1
    WsNo = WsNo + 1
    Sheets.Add.Name = isim 'sayfa açıp tanımlanan ismi verir
    Sheets(isim).Select
    Range("A1:S400").PasteSpecial
    Application.CutCopyMode = False
    Sheets(isim).Visible = False
    Workbooks.Open Filename:=dosya
    End If
    Next I
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Label101.Caption = yol & dosyaadi & uzanti




    • Yapay Zeka’dan İlgili Konular
    ACİL YARDIM PDF.JS HATASI
    7 yıl önce açıldı
    Excell yardım
    3 yıl önce açıldı
    Sql yardım
    3 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum