açık olan 5 ayrı xls dosyasından veri almak?

[yincekara]

Herkese iyi çalışmalar;

Ekte gönderdiğim klasörde olan 5 ayrı xls dosyasından rapor.xls dosyasına veri almak istiyorum,
veri dosyalarında A sütununda "x" ile işaretlediğim satırların rapor.xls dosyasına kopyalamak amacım. ilgi ve yardımlarınız için teşekkür ederim,
yusuf

excel 2003 / 2007

 

[Tarkan VURAL]

yanıt

Yusuf bey ada , adb , ata vs dosyalarınızda A sütununda X ile işaretlediğim veriler alınsın demişsiniz ama burada X işaretli hiçbir veri yok.

 

[yincekara]

özür dilerim yani x ile işaretlersem demek istedim..veya y veya z bir şekilde yani...

 

[yincekara]

(bu kodla A sütunu 3. hücreden başlayarak A3 eğer hücre değeri X ise hücre değerinin X olduğu satırı kopyalamak istiyorum (1R*12C) bir yerlerde eksik var sanırım, yardımcı olursanız sevinirim)


Sub xler()

Dim i As Integer
Dim y As Integer

For i = 1 To 120
For y = 1 To 8
Sheets.Select
Range("A" & i + 3).Select
If ActiveCell.Value = "X" Then
Sheets(y + 1).Select
Range("A" & i + 12).Select
Selection.Copy

Sheets("TABLO").Select
Range("A" & i + 12).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(y + 2).Select
Range("A" & i + 12).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TABLO").Select
Range("R" & (y - 1) * 120 + i + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

Next y
Next i

End Sub

 

[yincekara]

Sadece fonksiyon kullanarak yapabiliyoruz galiba