Dosya Birleştirmede Klasör İsmi

[umit1907]

Merhabalar,
bir sipariş listem var ve bu listeye 30 firmadan gelen verileri birleştiriyorum şöyle bir sıkıntım var sutunun (butün ürünlerin karşısına ) birine birleşen dosyanın ismini yazmak istiyorum. yardımlarınız için teşekkürler.

 

[Orion1]

Dosyanız ektedir.

'Cells(bas_satir_no, 1) = Dosya
'Cells(bas_satir_no, 1).Interior.ColorIndex = 8
'bas_satir_no = bas_satir_no + 1

For r = veri_alinacak_bas_sat To sat1 ' Kapalı dosyaya ait son dolu satır sayısı
Cells(r, "F").Value = Dosya.Name
say = bas_satun_no
For j = veri_alinacak_bas_sut To sut1 ' Kapalı dosyaya ait son dolu sütun sayısı
Cells(bas_satir_no, say).Value = ExecuteExcel4Macro(deg4 & r & "C" & j) 'kapalı dosyadaki değerlere ait prosüdür
If Cells(bas_satir_no, say).Value = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

 

[umit1907]

Teşekkür ederim elinize sağlık.

 

[Orion1]

Teşekkür ederim elinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[umit1907]

Rica ederim.
İyi çalışmalar.

Abi dosyayı denedimdi 8-9 dosyayı birleştirirken tüm dosya isimlerini getirmiyor sadece 1 dosyanın ismini yazıyor.

 

[Orion1]

Abi dosyayı denedimdi 8-9 dosyayı birleştirirken tüm dosya isimlerini getirmiyor sadece 1 dosyanın ismini yazıyor.

Kırmızı satırı kodlarınızda yeniden düzenleyin.

'Cells(bas_satir_no, 1) = Dosya
'Cells(bas_satir_no, 1).Interior.ColorIndex = 8
'bas_satir_no = bas_satir_no + 1

For r = veri_alinacak_bas_sat To sat1 ' Kapalı dosyaya ait son dolu satır sayısı
Cells(bas_satir_no, "F").Value = Dosya.Name
say = bas_satun_no
For j = veri_alinacak_bas_sut To sut1 ' Kapalı dosyaya ait son dolu sütun sayısı
Cells(bas_satir_no, say).Value = ExecuteExcel4Macro(deg4 & r & "C" & j) 'kapalı dosyadaki değerlere ait prosüdür
If Cells(bas_satir_no, say).Value = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

 

[umit1907]

Kırmızı satırı kodlarınızda yeniden düzenleyin.

'Cells(bas_satir_no, 1) = Dosya
'Cells(bas_satir_no, 1).Interior.ColorIndex = 8
'bas_satir_no = bas_satir_no + 1

For r = veri_alinacak_bas_sat To sat1 ' Kapalı dosyaya ait son dolu satır sayısı
Cells(bas_satir_no, "F").Value = Dosya.Name
say = bas_satun_no
For j = veri_alinacak_bas_sut To sut1 ' Kapalı dosyaya ait son dolu sütun sayısı
Cells(bas_satir_no, say).Value = ExecuteExcel4Macro(deg4 & r & "C" & j) 'kapalı dosyadaki değerlere ait prosüdür
If Cells(bas_satir_no, say).Value = 0 Then
Cells(bas_satir_no, say).Value = ""
End If

Teşekkürler abi

 

[Orion1]

Teşekkürler abi

Rica ederim.
İyi çalışmalar.