Değeri Otomatik Olarak Getirme

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 2 Mar 2020

• #2

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.)

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(8 satır)

 

Oyla 0 Olumsuz oyla

Epakambalaj

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

370

• 2 Mar 2020

• #3

iyiki varsınız hocam Allah razı olsun

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 2 Mar 2020

• #4

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

İyi çalışmalar dilerim.

 

Oyla 0 Olumsuz oyla

Epakambalaj

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

370

• 12 Mar 2020

• #5

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

 

Oyla 0 Olumsuz oyla

Epakambalaj

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

370

• 12 Mar 2020

• #6

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

 

Oyla 0 Olumsuz oyla

Epakambalaj

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

370

• 28 Mar 2020

• #7

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

VBA:

İndirmek 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?

 

Oyla 0 Olumsuz oyla

Epakambalaj

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

370

• 24 Haz 2024

• #8

VBA:

İndirmek 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.

 

Oyla 0 Olumsuz oyla

Çözüm