çalışma sayfalarının belirli satırlarını bir yerde listeleme

[modoste]

merhaba sayın hocalarım
az önce uyumadan aklıma bir sorgulama takıldı hemen forumumuza sormak istedim (Kapalı dosyalarından veri alma)
herhangi bir klasördeki excel çalışma sayfalarının herbirinde "Günlük İlerleme" sekmelerinin AP13:AP40 arasını boş bir excel sayfasında yanyana olacak şekilde nasıl makro ile alırım

 

[modoste]

bu soruyu sorma sebebimi detaylı anlatayım
çalıştığım yerde her gün günlük rapor hazırlanıyor ve her günün raporu ayrı bir excel çalışma sayfasında yapılmakta
haziran klasörü içinde "01.06.2020"-"02.06.2020"-03.06.2020"------- diye excel çalışma sayfaları bulunmakta ve bu çalışma sayfalarının içindeki "Günlük İlerleme" sekmelerinin formatı hep aynı.
haziran-temmuz-ağustos-eylül-ekim-kasım-aralık adlı klasördeki her birinin içinde kiminde 30 adet kiminde 31 adet çalışma sayfası bulunmakta

ben işe yeni başladığım için geçmiş 6-7 aydaki her günün raporundaki "Günlük Çalışma" sekmesinde AP13:AP40 arasındaki 28 satırlık veriyi yeni bir excel çalışma sayfasına taşımak istemem.

makro ile çözümde makro çalışınca açılır pencere ile klasöre kadar seçecem. O klasördeki excel çalışma sayfalarının "Günlük Çalışma" sekmelerinin AP13:AP40 arasını boş sayfada yanyana getirmek istiyorum ve makroda AP13:AP40 aralığını da değiştirebilmek istiyorum. başka bir zamanda B8:B50 arasını çekmek zorunda kalabilirim.

 

[Korhan Ayhan]

Forumda arama yapmayı denediniz mi?

klasör+adodb

 

[modoste]

kapalı dosyalardan veri alma ile ilgili bakmıştım ama Korhan hocam
benim sorunuma ilişkin bulamadım.

 

[Korhan Ayhan]

Anahtar kelimeleri paylaştım. Arama yaparak çıkan sonuçları inceleyiniz.

 

[modoste]

hocam baktım ama kendi sorumla eşleştirme bulamadım.

 

[modoste]

soruma adım adım ilerlemeyi seçerek tekrar yineliyorum.
makro ile açılır pencere açılarak bir klasör içinden excel çalışma sayfası seçildiğinde o çalışma sayfasının AP13:AP40 arasındaki verileri yeni bir excel çalışma sayfasında C3 den itibaren aşağıya doğru yerleştirilmesi. bunun makrosu ile başlayalım sayın hocalarım

 

[ÖmerFaruk]

Resimdeki gibi bir UserForm oluşturun.
ComboBox1 - TextBox1 - CommandButton1 - CommandButton2


Bu kodları UserForm KOD sayfasına yapıştırın.

Private Sub CommandButton1_Click()
    If TextBox1.Value = "" Then GoTo HATA
    If ComboBox1.ListIndex < 0 Then
        MsgBox " Kopyalanacak aralık için sayfa seçin"
        ComboBox1.SetFocus
        Exit Sub
    End If
    On Error GoTo HATA
    Application.ScreenUpdating = False
    Worksheets.Add().Name = Replace(TextBox1.Value, " ", "")
    Worksheets(ComboBox1.Value).Range("AP13:AP40").Copy
    Range("C3:C30").PasteSpecial xlPasteValues
    Range("C3").Select
    Call ADO_Sayfaisimleri
    Application.ScreenUpdating = True
    Exit Sub
HATA:
    MsgBox "Sayfa ismi kabul edilir formatta değil"
    TextBox1.SetFocus
    Application.ScreenUpdating = True
    End Sub
Private Sub CommandButton2_Click()
    Unload Me
End Sub
Private Sub UserForm_Initialize()
Call ADO_Sayfaisimleri
End Sub
Sub ADO_Sayfaisimleri()
    Dim con As Object, kat As Object, tbl As Object, ac As String
    Set con = CreateObject("adodb.connection")
    Set kat = CreateObject("adox.catalog")
    Set tbl = CreateObject("adox.table")
    con.Open "provider=microsoft.Ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & _
    ";extended properties=""Excel 12.0;hdr=yes"""
    kat.ActiveConnection = con
    ComboBox1.Clear
    For Each tbl In kat.Tables
        ComboBox1.AddItem Replace(tbl.Name, "$", "")
    Next
    ComboBox1.ListIndex = 0
End Sub

 

[modoste]

sayın next level user form daha önce kullanmadığım için tam anlayamadım. ekli dosyada user form dediklerinizi yaptım bakabilirmisiniz nerelerde eksiklik var

makro çalıştırıldığı zaman açılır pencere açılsa ben orda klasörü ve onun altındaki excel sayfasını seçsem. buna dönüştürebilir misiniz.

 

[ÖmerFaruk]

Ekli dosyanız, tek ve boş bir sayfadan ibaret adı userform olan bir excel kitabı.
Yukarıdaki sorularınıza bakıyorum, en son mesajınıza bakıyorum, gönderdiğiniz son boş excel dosyasına bakıyorum... Pes ediyorum.
Kolay gelsin.

 

[modoste]

dosyamı yeniden yüklüyorum. daha detaylı izah ettiğimi düşünüyorumç