kodla diğer sayfaya veri aktarma

[Epakambalaj]

Excel Versiyonu

Excel 2010

Excel Sürümü

64 Bit

Excel Dili

Türkçe

İyi çalışmalar hocalarım.

Örnek dosyada belirttiğimiz şekilde;
Faturalı Stok Giriş sayfası E Sütununa veri girdimizde,
Mevcut Mal sayfası F Sütununa veriyi (Ürün isminin yanına) aktarmak istiyoruz.

Yardımcı olabilir misiniz?

 

Silinmiş veya Hatalı Saatler İçin Uyarı Verme

Sicile Göre Klasörden Resim Alma

[AhmetRasim]

Merhabalar Sn. @Epakambalaj
Faturalı Stok Giriş sayfanın kod bölümüne ekleyiniz.

Görüntülemek için giriş yapmanız gerekmektedir.
(19 satır)

 

[Epakambalaj]

Ellerinize sağlık hocam harika olmuş.

 

[AhmetRasim]

Rica ederim. İyi çalışmalar.

 

[Epakambalaj]

Hocam bu kodu farklı isimli bir sayfaya yazdırmak için ne yapmamız gerekir?
Ör. 10 sayfalık bir dosyada, "mevcut mal" yerine "liste" isimli farklı bir sayfaya veri çekmemiz için kodun neresini değiştirmeliyiz?

 

[AhmetRasim]

Mevcut Mal isimli sayfanın VBA bölümündeki ismi Sayfa2 dir.
Kod içinde Set s2 = Sayfa2 tanımlaması ile s2 değişkenine Sayfa2 atanmış olur.


Hangi sayfayı atama yapacaksanız önce buradaki Sayfa2 ismini değiştirmeniz gerekir.

Daha sonra;
-- Arama yapılacak alan E sütunu değilse
Set bul = s2.Range("E:E").Find(urun)
satırındaki E harfini değiştirmeniz gerekir.

-- Veri yazdıracağınız sütun F sütunu değilse
s2.Range("F" & bul.Row).Value = Target.Value
satırındaki F harfini değiştirmeniz gerekir.

 

[Epakambalaj]

Çok teşekkür ediyorum Hocam.

 

[AhmetRasim]

Rica ederim, iyi çalışmalar.