Aktif Hücrenin sağına kaydet

[muallim]

UserFormda textBox1 e yazdığım değeri aktif hürenin sağ tarafındaki ilk boş hücreye kaydetmek istiyorum. A2 aktif ise TextBox1 'i B2'ye, B2 dolu ise C2'ye kadetsin. Ara bölümünde bulamadım. Selamlar... :hey:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Activecell.offset(0,1)=textbox1.value

 

[muallim]

Aktif hücrenin sağına kaydediyor, ben sağındaki ilk boş hücreye kaydetmesini istemiştim. A2 aktif ise TextBox1 'i B2'ye, B2 dolu ise C2'ye kadetsin. İyi çalışmalar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Cells(Cells(65536, ActiveCell.Column + 1).End(3).Row + 1, ActiveCell.Column + 1) = textbox1.Value

 

[muallim]

Sayın leventm, ilginize teşekkür ederim. Ancak bo kod daaktif hücrenin sağındaki hücreye kaydettikten sonra diğer kaydı onun altındaki hücreye yapıyor. Ben aktif hücrenin sağındaki hücre doluysa diğer kaydı onun sağına yapsın istiyorum.
A2 aktif ise TextBox1 'i B2'ye, B2 dolu ise C2'ye o da doluysa D2'ye kadetsin. İyi çalışmalar.

 

[hamitcan]

Ben küçük bir örnek hazırladım ,umarım işinize yarar.

 

[muallim]

Gönderdiğiniz çalışmada da hep aynı satıra kaydediyor. A2 seçili ise 2ikinci sıraya, A3 seçili ise üçüncü sıraya kaydetmeli.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Cells(ActiveCell.Row, 256).End(xlToLeft).Next =Textbox1.value