Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 08-08-2016, 08:58   #1
idle.
 
Giriş: 27/07/2016
Şehir: İstanbul
Mesaj: 18
Excel Vers. ve Dili:
excel 2010
Varsayılan network üzerindeki ortak alanın dosya yolunu kullanma

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
idle. Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-08-2016, 10:20   #2
bugrakaratas
 
Giriş: 06/07/2015
Şehir: İstanbul
Mesaj: 55
Excel Vers. ve Dili:
Office 2016
Varsayılan

Sayın idle,
Kullandığınız kodun tamamını yapıştırabilir misiniz?
Üzerinde düzeltme gerçekleştirelim.
bugrakaratas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-08-2016, 10:57   #3
idle.
 
Giriş: 27/07/2016
Şehir: İstanbul
Mesaj: 18
Excel Vers. ve Dili:
excel 2010
Varsayılan

Alıntı:
bugrakaratas tarafından gönderildi Mesajı Görüntüle
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.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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:="D:\Doküman\TimeTracking\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. Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2016, 11:19   #4
idle.
 
Giriş: 27/07/2016
Şehir: İstanbul
Mesaj: 18
Excel Vers. ve Dili:
excel 2010
Varsayılan

yardımcı olabilecek olan yok mudur ?
idle. Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2016, 11:39   #5
Huseyinkis
 
Huseyinkis kullanıcısının avatarı
 
Giriş: 23/09/2004
Şehir: İstanbul
Mesaj: 1,748
Excel Vers. ve Dili:
Excel 2010 TR
Varsayılan

İki dosyada aynı yerde ise ekteki gibi denermisiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
///Ya severek "Acı Çekmesini" biliceksin yada Sevmeyeceksin hep "Acı Çekeceksin"///
Huseyinkis Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2016, 13:22   #6
idle.
 
Giriş: 27/07/2016
Şehir: İstanbul
Mesaj: 18
Excel Vers. ve Dili:
excel 2010
Varsayılan

Alıntı:
Huseyinkis tarafından gönderildi Mesajı Görüntüle
İki dosyada aynı yerde ise ekteki gibi denermisiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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. Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2016, 09:54   #7
idle.
 
Giriş: 27/07/2016
Şehir: İstanbul
Mesaj: 18
Excel Vers. ve Dili:
excel 2010
Varsayılan

yardım lütfen ?
idle. Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2016, 08:33   #8
idle.
 
Giriş: 27/07/2016
Şehir: İstanbul
Mesaj: 18
Excel Vers. ve Dili:
excel 2010
Varsayılan

Rica etsem biri bana yardımcı olabilir mi? lütfeen
idle. Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-08-2016, 13:20   #9
Huseyinkis
 
Huseyinkis kullanıcısının avatarı
 
Giriş: 23/09/2004
Şehir: İstanbul
Mesaj: 1,748
Excel Vers. ve Dili:
Excel 2010 TR
Varsayılan

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
__________________
///Ya severek "Acı Çekmesini" biliceksin yada Sevmeyeceksin hep "Acı Çekeceksin"///
Huseyinkis Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:57


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden