Dosya yolunu seperatöre gore düzenleme

[mehdin82]

Arkadaşlar selam,

Benim bir problemim var Excelde bunu fonksiyon ile nasıl daha efektif yapabilirim bunu sormak istedim.

Elimdeki veriler iç içe klasörler şeklinde ve ben bunlara bazı yetkileri vermek istiyorum. Şuanki hali ile de çok kırılım olmadığından verebiliyorum. Lakin kırılım arttıkça işler zorlaştı. Bu sebeple bilen kişiler yardımcı olabilirse yol gösterirse sevinirim.



GrupMuhasebe -> \\Muhasebe\Bordro\Maas
GrupFinans -> \\Finans\Rapor\Yıllık

Yukarıdaki gibi bir verim var.

Yanyana yaparken aslında kolay formülümü ekleyip yapabiliyorum ve elime aşağıdakine benzer bir tablo geliyor.

GrupMuhasebe -> \\Muhasebe GrupMuhasebe -> \\Muhasebe\Bordro GrupMuhasebe -> \\Muhasebe\Bordro\Maas
GrupFinans -> \\Finans GrupFinans -> \\Finans\Rapor GrupFinans -> \\Finans\Rapor\Yıllık

Elle 6 satırı alt alta yazmak kolay ancak bunu çok satırlı olması durumunda işler zorlaşıyor.

İstediğim format ise aşağıdaki gibi.

GrupMuhasebe -> \\Muhasebe
GrupMuhasebe -> \\Muhasebe\Bordro
GrupMuhasebe -> \\Muhasebe\Bordro\Maas
GrupFinans -> \\Finans
GrupFinans -> \\Finans\Rapor
GrupFinans -> \\Finans\Rapor\Yıllık

Öneriniz var mıdır?

 

[mehdin82]

Arkadaşlar kapatılabilir VBA ile çözdüm kolaymış isteyen olursa buradan iletebilirim.

 

[mekist]

Merhaba,
Öğrenmek isterim

 

[mehdin82]

Bu kısımda gereken formatın ilk kısmını yapıyorum.
///////////////////////////////////////////////////////////////////////////////////
For i = 1 To 10000
a = Cells(i, 1).Value
B = Split(a, "\")
For j = LBound(B) To UBound(B)
If j = 0 Then
c = B(j)
Else
c = c & "\" & B(j)
End If

Cells(ron + i, j + 1).Value = c
Next j
Next i
///////////////////////////////////////////////////////////////////////////////////

Burada ise karışık haldeki 1. sayfadaki veriler 2. sayfaya liste halinde konuluyor
///////////////////////////////////////////////////////////////////////////////////
Dim i As Long, r As Long, c As Long
i = 1

ThisWorkbook.Worksheets("Sheet1").Select
For r = 141 To 566
For c = 2 To 8
If Cells(r, c).Value <> "" Then
Cells(r, c).Copy
Worksheets("Sheet2").Range("A" & i).PasteSpecial xlPasteValues
i = i + 1
End If
Next
Next
///////////////////////////////////////////////////////////////////////////////////

 

[Korhan Ayhan]

Konu başlığınız ile talebiniz biraz farklı içerikler olmuş gibi görünüyor.

Paylaştığınız koda göre sizin talebiniz klasör yolunu separatörüne göre ayırmak gibi görünüyor.

 

[mehdin82]

Konu başlığınız ile talebiniz biraz farklı içerikler olmuş gibi görünüyor.

Paylaştığınız koda göre sizin talebiniz klasör yolunu separatörüne göre ayırmak gibi görünüyor.

Dogrudur. Icerikte anlatmisim ancak ana baslik yanlis olmus. Arsivlenebilir ya da adini bahsettiginiz sekilde yapmak daha dogru olabilir.