network üzerindeki ortak alanın dosya yolunu kullanma

[idle.]

Merhabalar,

D sürücüsü içinde bir klasörde iki farklı excel dosyam var ve birindeki değerleri diğerine buton aracılığı ile aktarıyorum. Bu yüzden değerleri gönderdiğim excel dosyasının bulunduğu path i diğerinin makrosunu yazarken kullandım. Yani,

a.xlsm exceli içindeki butona aktardığım makroda b.xlsm excelinin dosya yolu bulunuyor

D:\....\b.xlsm gibi.

Yalnız, ikisi de bilgisayarımda bulunduğu için path değeri lokal. Ben bir şirket networkünde paylaşımlı klasörlerden birinin altına yerleştirmek istiyorum, dolayısıyla belirttiğim path lokal olmadığı için makro hata veriyor.

Bunu nasıl düzenleyebilirim?

Yardımlarınız için teşekkürler, iyi günler

 

[bugrakaratas]

Sayın idle,
Kullandığınız kodun tamamını yapıştırabilir misiniz?
Üzerinde düzeltme gerçekleştirelim.

 

[idle.]

Sayın idle,
Kullandığınız kodun tamamını yapıştırabilir misiniz?
Üzerinde düzeltme gerçekleştirelim.

tabii ki hemen, kod UserTask excelinde bulunan tablodaki verileri, Master exceline gönderiyor.

Sub SenttoMaster() ' User interface içeriğini Master workbook a atayan makro

Set Sheet1 = Workbooks("UserTask.xlsm").Sheets("Sayfa1") ' Sheet1 = user interface e ait sayfa

Workbooks.Open Filename:="[COLOR="Red"][B]D:\Doküman\TimeTracking\Master.xlsm[/B][/COLOR]" ' path of Master workbook

SON = Sheet1.Cells(Rows.Count, "C").End(3).Row ' Sheet1'deki tabloya ait C sütununda veri girişi yapılan son satır

' User interface tablosunda C sütununu baz alarak satır sayısı belirleyip Master workbook a ait tabloya aktaran kısım
For i = 1 To SON
If Sheet1.Cells(i, "C") <> "" Then
yeni = Workbooks("Master.xlsm").Sheets("Sayfa1").Cells(Range("Tablo13").Rows.Count, "C").End(3).Row + 1

Sheet1.Rows(i).Copy
Workbooks("Master.xlsm").Sheets("Sayfa1").Cells(yeni, "A").Select

' kopyalanan kısımdaki hücreler Master workbook a yalnızca değer olarak aktarılır, hücre stilleri vs. dahil değil
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
End If
Next

'işlem sonunda kaydın tamamlandığını belirten mesaj kutusu, ardından master a ait son durumun kaydedilmesi ile ilgili onay

Application.ScreenUpdating = True
MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
ActiveWorkbook.Close
[Sheet1].Select

End Sub

 

[idle.]

yardımcı olabilecek olan yok mudur ?

 

[Huseyinkis]

İki dosyada aynı yerde ise ekteki gibi denermisiniz.

Sub SenttoMaster() ' User interface içeriğini Master workbook a atayan makro

Set Sheet1 = Workbooks("UserTask.xlsm").Sheets("Sayfa1") ' Sheet1 = user interface e ait sayfa

Workbooks.Open Filename:=ThisWorkbook.Path &"\Master.xlsm" ' path of Master workbook

SON = Sheet1.Cells(Rows.Count, "C").End(3).Row ' Sheet1'deki tabloya ait C sütununda veri girişi yapılan son satır

' User interface tablosunda C sütununu baz alarak satır sayısı belirleyip Master workbook a ait tabloya aktaran kısım
For i = 1 To SON
If Sheet1.Cells(i, "C") <> "" Then
yeni = Workbooks("Master.xlsm").Sheets("Sayfa1").Cells(Range("Tablo13").Rows.Count, "C").End(3).Row + 1

Sheet1.Rows(i).Copy
Workbooks("Master.xlsm").Sheets("Sayfa1").Cells(yeni, "A").Select

' kopyalanan kısımdaki hücreler Master workbook a yalnızca değer olarak aktarılır, hücre stilleri vs. dahil değil
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
End If
Next

'işlem sonunda kaydın tamamlandığını belirten mesaj kutusu, ardından master a ait son durumun kaydedilmesi ile ilgili onay

Application.ScreenUpdating = True
MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
ActiveWorkbook.Close
[Sheet1].Select

End Sub

 

[idle.]

İki dosyada aynı yerde ise ekteki gibi denermisiniz.

Sub SenttoMaster() ' User interface içeriğini Master workbook a atayan makro

Set Sheet1 = Workbooks("UserTask.xlsm").Sheets("Sayfa1") ' Sheet1 = user interface e ait sayfa

Workbooks.Open Filename:=ThisWorkbook.Path &"\Master.xlsm" ' path of Master workbook

SON = Sheet1.Cells(Rows.Count, "C").End(3).Row ' Sheet1'deki tabloya ait C sütununda veri girişi yapılan son satır

' User interface tablosunda C sütununu baz alarak satır sayısı belirleyip Master workbook a ait tabloya aktaran kısım
For i = 1 To SON
If Sheet1.Cells(i, "C") <> "" Then
yeni = Workbooks("Master.xlsm").Sheets("Sayfa1").Cells(Range("Tablo13").Rows.Count, "C").End(3).Row + 1

Sheet1.Rows(i).Copy
Workbooks("Master.xlsm").Sheets("Sayfa1").Cells(yeni, "A").Select

' kopyalanan kısımdaki hücreler Master workbook a yalnızca değer olarak aktarılır, hücre stilleri vs. dahil değil
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
End If
Next

'işlem sonunda kaydın tamamlandığını belirten mesaj kutusu, ardından master a ait son durumun kaydedilmesi ile ilgili onay

Application.ScreenUpdating = True
MsgBox "KAYIT İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
ActiveWorkbook.Close
[Sheet1].Select

End Sub

Hüseyin Bey çok çok teşekkür ediyorum, yapmış olduğunuz düzenleme sayesinde her iki excel dosyası ortak alanda aynı klasörde olunca başarılı bir şekilde çalışıyor.

Benim bu konuda bir yardımınıza daha ihtiyacım olacak,

ortak alana attığım klasörün adı AA, bu klasörün içinde bir de BB isimli bir klasörüm var ve benim excel dosyalarımdan biri AA içinde, diğeri ise BBnin içinde. Benim BB içindeki excel içeriğimi doğrudan AA içerisinde bulunan excel içerisine atabilmem için aynı kodda dosya yolunu nasıl değiştirmem gerekir?

Tekrar tekrar teşekkür ediyorum, iyi çalışmalar.

 

[idle.]

yardım lütfen ?

 

[idle.]

Rica etsem biri bana yardımcı olabilir mi? lütfeen

 

[Huseyinkis]

Workbooks.Open Filename:=ThisWorkbook.Path &"\Master.xlsm

Merhaba Ekteki kod dosyanın olduğu klasörün içindeki master excel dosyasını aç olarak işlem yapar siz dosyanın içinde olduğu klasörün içerisinde bulunan BB adlı klasörden açtırmak istiyorsanız aşağıdaki gibi değiştirmeniz yeterli olacaktır.

Workbooks.Open Filename:=ThisWorkbook.Path &"\BB\Master.xlsm