Değeri Otomatik Olarak Getirme

[Epakambalaj]

iyi günler hocalarım.
Örnek: A1 tarih, B1 hücresine domates, C1 hücresine 3.00 yazıyoruz.
Daha sonra alt sıralarda işlem yaparken, B20 hücresine domates yazdığımızda, domatese en son verilen fiyatı C20 hücresine otomatik atmak mümkün müdür?
saygılarmıla...

 

VBA Kodlarını ThisWorkBook Alanına Ekleme

Verimli Puantaj Çalışması Hazırlama

[Ömer BARAN]

Merhaba Sayın @Epakambalaj

Alt taraftan bahsettiğiniz uygulamayı yapacağınız sayfanın adına fareyle SAĞ tıklayıp
KOD GÖRÜNTÜLEyi seçin, açılacak VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırın.
(belgenin kayıt türünün *.xlsm veya *.xlsb olmasını sağlamayı unutmayın.)

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

 

[Epakambalaj]

iyiki varsınız hocam Allah razı olsun

 

[Ömer BARAN]

Tekrar merhaba Sayın @Epakambalaj
Eyvallah, sağ olunuz. Her daim buralardayız.

İyi çalışmalar dilerim.

 

[Epakambalaj]

iyi günler hocam.
bu kodu, D1 E1 F1 hücrelerine doğru uzanacak şekilde nasıl uyarlayabiliriz?

 

[Epakambalaj]

hocam hakkınızı helal edin
C1 den başlatıp, sonrasındaki 5 sütun için ayarlasak daha verimli çalışırız.

 

[Epakambalaj]

iyi günler @Ömer hocam.
verdiğiniz kodu,

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

olarak güncelledim.

buna ilave olarak

If Cells(sat, 3) = Target Then: Target.Offset(, 3) = Cells(sat, 6): Exit For
Next

eklemek istiyorum.

yardımcı olabilir misiniz?

 

[Epakambalaj]

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

kurcalaya kurcalaya hallettim hocam.
bize kılavuzluk ettiğiniz için çok teşekkür ediyorum hocam.
Allah razı olsun hepinizden.