Çözüldü Birden çok puantajı tek sayfada alt alta eklemek.

kralım.' Alıntı:

Deneyiniz. Ben sadece 3 adet puantaj için yaptım. Sizin yapmanız gereken çok kolay. En sondaki 3 ncü ay'a ait puantajı eb soldaki (rakamsal) satır isimlerini kullanarak kopyalayın, bir altta (bir satır boşluk bırakarak) yapıştırın. 4 ncü ve müteakip ayları kendisi otomatik atacak.
Lütfen dönüş yapın.

Genişletmek için tıkla...

Cafer_1972' Alıntı:

Merhaba

Dosyanızda "Data" sayfası açın ,
VB için

HTML:

C#: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu kod, o klasörde bulunan excel dosyalarının 1. sayfalarını kopyalayıp, Data sayfasına alt alta yapıştırır, sayı sınırı yoktur

Genişletmek için tıkla...

Cafer_1972' Alıntı:

Merhaba
dosyanız masa üstünde olduğunu varsayalım, klasörün yol
"Z:\Belgelerim\cafer\Desktop\puantaj\2024\" böyle olabilir
veya
C sürücüsünde, her hangi bi klasörde ise
"C:\dosya\data\2024\" gibi

sonuna "\" kesme işaretini koymayı unutmayın

Genişletmek için tıkla...

Cafer_1972' Alıntı:

Sub KopyalaDosyalar()
Dim klasorYolu As String
Dim dosyaAdi As String
Dim hedefKitap As Workbook
Dim kaynakKitap As Workbook
Dim hedefSayfa As Worksheet
Dim sonSatir As Long

klasorYolu = "C:\Dosya\"


Set hedefKitap = ThisWorkbook
Set hedefSayfa = hedefKitap.Sheets("data")

dosyaAdi = Dir(klasorYolu)

Do While dosyaAdi <> ""
If Right(dosyaAdi, 4) = ".xls" Or Right(dosyaAdi, 5) = ".xlsx" Then
Set kaynakKitap = Workbooks.Open(klasorYolu & dosyaAdi)
sonSatir = hedefSayfa.Cells(hedefSayfa.Rows.Count, 1).End(xlUp).Row + 1

kaynakKitap.Sheets(1).UsedRange.Copy hedefSayfa.Cells(sonSatir, 1)
kaynakKitap.Close False
End If
dosyaAdi = Dir
Loop
End Sub


Bu kod işinizi görür sanırım

Genişletmek için tıkla...