Sütundaki Hücre Dolu ise başka Hücreye Yazmak

[bumer]

Merhaba Arkadaşlar,
UserFormdan kayıt yaparken girilen veriyi Formda verilen değere göre bulunan satır ve sütuna ait hücrede kayıt varsa aynı satıra ama yandaki sütuna kaydetmek istiyorum. Yani formdaki değer sonucu F121 hücresini seçmiş isek bu hücre boş ise bu hücreye boş değilse H121 hücresine kayıt yapmak istiyorum. Bir iki deneme yaptım ama istediğimi elde edemedim. ekte bir örnek var, bu konuda yardımcı olursanız şimdiden teşekkürler

 

[bumer]

Dosyayı Şimdi Ekledim

 

[Korhan Ayhan]

Merhaba,

Bence sorunuz eksik kalmış. Yinede size ışık tutmak için aşağıdaki kodu veriyorum. Sanırım kendinize uyarlarsınız.

If Range("F1") = "" Then
    Range("F1") = txtUC.Value
ElseIf Range("H1") = "" Then
    Range("F1") = txtUC.Value
Else
    Range("J1") = txtUC.Value
End If

 

[bumer]

Sayın Korhan Ayhan,
İlginize ve yardımınıza teşekkür ederim. Yaptığınız kodu ben kendime uyguladım ve sorunu çözdüm. Sanırım hatam "ElseIf" kullanım hatasındandı. Düzelttiğim örnek dosya ekte. Tekrar teşekkür eder iyi çalışmalar dilerim.