Kapalı excel dosyasından veri çekme

[BedriA]

Evet BedriA

Ama eski dosyalar da o sayfalar aynı dosyada değildi.

 

[tekkral.cihan]

Öğretmenlerin 1.dömem not ve 2.dönem not girmedi gerekiyor bunları yılsonu ortalamasın da birleştirmek gerek sınav notları değişmez isimleri ondan aynı dosya isimleri farklı sadece

 

[tekkral.cihan]

Aynı dosya da değil 2 dosya yolladım 1.dönem ve 2.dönem diye

 

[BedriA]

Aynı dosya da değil 2 dosya yolladım 1.dönem ve 2.dönem diye

Dosyalarınızda bir hayli kod var; sürekli hata aldım ve kodlarınıza vakıf olamadığım için işin içinden çıkamadım.

 

[tekkral.cihan]

İçinde baya birşey var dosyanın hepsini yüklemedim ilk yaptığın dosya yolunu seçip aktarma çalışıyor ama 1-o 2-o kadar yok

 

[tekkral.cihan]

Sub Makro5()


For i = 1 To 20
    Sheets("sayfa1").Select
    Range("R" & i).Select
    ActiveCell.FormulaR1C1 = "=ROW(RC[-17]) &""-""& ""s"""
    
    Next i

End Sub
Sub Kaydet()

    Sheets("sayfa1").Select
    Range("F8:G47").Select
    Selection.Copy
    Sheets("1-o").Select
    Range("D8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("Sayfa1").Select
    Range("H8:I47").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("1-o").Select
    Range("I8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

bu kodlar çalışıyor ama sadece 1-o sayfası var ben listboxta 1.sayfayı kopyaladığımda aynı anda 1-o....20-o safyalarıda kopyalanabilir mi.