Aynı klasördeki kapalı dosyalardaki verileri birleştirme

[mersilen]

Merhabalar
Kapalı dosyalardaki verileri performans dosyasına B10 dan başlayarak alt alta sırayla nakletmek istiyorum.Kapalı dosyada verilerin yerini bulup aldırtamadım.Nasıl yapabilirim.

 

[tahsinanarat]

Dosyanız ekte

Derlemek biraz zaman aldı, umarım işinizi görür. Ekli dosyayı inceleyiniz.

 

[mersilen]

Merhaba sayın Tahsinanarat,
Kodlar mükemmel çalışıyor, teşekkürler.
Kapalı dosyadan yapmayı deneyipte yapamayınca bende sizin yolla yapayım dedim ama tam becerememiştim.Ellerinize sağlık.

 

[mersilen]

Tekrar merhaba

Kendime uygun düzenleme yaptım, yalnız kod döngüsü başlangıçta 10 dan 17 ye kadar boş yazıyor.Nedeni ne olabilir.

sonsat3 = ThisWorkbook.Sheets("Sayfa1").Cells(65536, "e").End(xlUp).Row
For x = 10 To sonsat3
If Cells(x, "E").Value = "Obstetrik US" _
Or Cells(x, "E").Value = "Obstetrik USG" _
Or Cells(x, "E").Value = "Suprapubik USG" _
Or Cells(x, "E").Value = "Suprapubik pelvik US" _
Or Cells(x, "E").Value = "Transvajinal USG" Then Cells(x, "O") = Cells(x, "G").Value / 34 * 17 Else Cells(x, "O") = Cells(x, "G").Value
Next x

Birde 9.satırdaki başlıkları getirtebilir miyiz?
D sütunundaki gruplara göre genel toplamını (örneğin 1 için "O10:O18") bir yere yazdırabilir miyiz?P sütunu olabilir