modul kopyalanması

[imported_ahmet tunalı]

Herkese günaydın,
İki adet dosyam var.
Birincisi Deneme ikinci dosya ilaç ve gübre fiyatları. (ikinci dosya başka bir kaynaktan alınıp üzerinde düzenleme yapılmış bir dosya)
ilaç ve gübre fiyatları dosyasındaki sayfaları (Malzeme ve dialog1)deneme içerisine kopyalıyarak taşıyorum. Modulleri de taşıyorum.
ancak deneme içerisinde kopyalanan makroları çalıştırdığımda ilaç ve gübre fiyatları dosyasını getirerek işlemi yapıyor.
Hatayı nerde yaptığımı bulamadım .
Ahmet Tunalı

 

[zafer]

Merhaba

Deneme tablosunda İlaç ve Gübre makrosunun üzerine sağ maouse ile basıp makro ata yı seçip
denemenin içinde ki makroyu seçiniz.

Dialog1 liste kutusunda da seçip denetim biçinlendir de bakarsanız listenin diğer tablodan geldiğini görebilirsiniz

kopyalama yaptığınız için böyle oluyor.

Saygılarımla

 

[imported_ahmet tunalı]

zafer bey tam anlayamadım.
ilaç ve gübre dosyaları için deki makroda sağ tıkladığımda Bu ne? komutu çıkyor.

 

[zafer]

Merhaba
Merhaba

Kopyalama yaptığınızda diğer tabloya bağımlı kalıyor.

Düzen menüsü/ bağlantılara girin

orada ilaçve gübre tablosuna bağlantılar olduğunu göreceksiniz.

Kaynağı değiştir ile deneme tablosunu seçiniz , sorun kalmayacaktır

 

[imported_ahmet tunalı]

zafer bey,
işlemi yapamadım.
yanlış bir yolmu izliyorum.
Saygılarımla

 

[zafer]

Merhaba

1 - Malzeme ve ilaç dosyasındaki 2 tabloyu deneme dosyasına kopyaladınız.
2 - Deneme dosyasında Düzen menusüne giriniz
3 - Bağlantıları seçiniz
4 - Açılan menude Bağlantı olarak İlaç ve Malzeme dosyası gözüküyor olacak
5- Kaynağı Değiştir butonuna basınız
6 - Gelen menude Deneme Dosyasını seciniz Tamam'a basınız

Artık İlaç ve Malzeme dosyanızla ilgili Deneme dosyanızda hiç bir bağlantı kalmayacaktır.Tüm verileri Deneme dosyanızdan alacaktır.

o sayfalara ait Modul'leride tam olarak kopyayınız.

 

[imported_ahmet tunalı]

Zafer bey,
deneme içerisine ilaç ve gübre dosyasını kopyaladım
deneme dosyası içinde düzen/bağlantılar /kaynağı değiştir dosya olarak deneme yazdım ancak ilaç ve fiyat düğmesin çalıştırdığımda düzen makrosu bulunamadı diyor.
"Kopyalama yapmadan önce düzende bağlantılar aktif değil"

 

[zafer]

Merhaba

Aşağıdaki makroyuda Deneme dosyasındaki bir modüle kopyalayınız

Dim sItem As String
Dim sValue As String

Sub SelectItem()
If DialogSheets("Dialog1").Show = True Then
Selection.Cells(1) = sItem
Selection.Cells(1).Offset(0, 11) = sValue
End If
End Sub

Sub ListBoxSelect()
sItem = Worksheets("malzeme").Range("D1")
sValue = Worksheets("malzeme").Range("E1")
End Sub

 

[imported_ahmet tunalı]

Teşekkürler Zafer bey
Modulleride kopyalayınca işlemi yapabiliyorum.