E

Çözüldü kodla diğer sayfaya veri aktarma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
E

Epakambalaj

Normal Üye
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?
 

Ekli dosyalar

Moderatörün son düzenlenenleri:
Çözüm
A
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.
1670332790089.webp


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.
Tarihe göre sırala Oylamaya göre sırala
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?
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
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.
1670332790089.webp


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.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler İçerikler Daha Fazlası

Üst