Soru Değeri Otomatik Olarak Getirme

Merhaba Sayın @Epak ambalaj .

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)

.
.

Ömer BARAN' Alıntı:

Private Sub Worksheet_Change(ByVal Target As Range) If Selection.Count > 1 Or Target.Column <> 2 Then Exit Sub If Target.Column = 2 And Target.Row > 1 Then For sat = Target.Row - 1 To 1 Step -1 If Cells(sat, 2) = Target Then: Target.Offset(, 1) = Cells(sat, 3): Exit For Next End If End Sub

Genişletmek için tıklayın ...

iyiki varsınız hocam Allah razı olsun

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

Memnuniyetinizi;
-- forumumuzdaki https://www.exceldestek.com/hesabim/hesap-yukseltme sayfası üzerinden VİP üyelik satın alarak,
-- işlerinizin müsade ettiği ölçüde, forumumuzda daha sık ve uzun süreli çevrimiçi olup,
diğer üyelerimizin soruları ve bunlar için verilen çözüm önerilerini de incelemek suretiyle forumumuzda vakit geçirerek,
-- erafınızdaki Ms.Excel kullanıcılarını forumumuzdan haberdar edip, üye olmalarını salık vererek,
gösterebilir ve böylece forumumuza katkı sağlamış olursunuz.

İyi çalışmalar dilerim.

.

Ömer BARAN' Alıntı:

Merhaba Sayın @Epak ambalaj .

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)

.

CSS:

İçeriği görüntülemek için giriş yapmalısınız
(8 satır)

.

Genişletmek için tıklayın ...

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

Epak ambalaj' Alıntı:

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

Genişletmek için tıklayın ...

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Or Target.Column <> 3 Then Exit Sub
If Target.Column = 3 And Target.Row > 1 Then
For sat = Target.Row - 1 To 1 Step -1
If Cells(sat, 3) = Target Then: Target.Offset(, 1) = Cells(sat, 4): Exit For
Next
End If
End Sub

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?

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Or Target.Column <> 3 Then Exit Sub
If Target.Column = 3 And Target.Row > 1 Then
For sat = Target.Row - 1 To 1 Step -1
If Cells(sat, 3) = Target Then: Target.Offset(, 1) = Cells(sat, 4): Exit For
Next
End If
If Selection.Count > 1 Or Target.Column <> 3 Then Exit Sub
If Target.Column = 3 And Target.Row > 1 Then
For sat = Target.Row - 1 To 1 Step -1
If Cells(sat, 3) = Target Then: Target.Offset(, 3) = Cells(sat, 6): Exit For
Next
End If
End Sub

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