Aktif Hücre'nin Bulunduğu Satır ve Sütunların İlk Hücresini Seçebilecek VBA Kodu

[hukumran1]

Başlıkta yazdıklarım hepsi, biraz basit bir istek belki ama internette oldukça aramama rağmen bulamadım.

Aktif hücre'nin bulunduğu satır ve sütunların ilk hücresini seçebilecek VBA kodu, yani F5 hücresinin aktif hücre olduğunu varsayalım o anda ama bu başka hücre de olabilir. o yüzden,

Selection.End(xlUp).Select

ve

Selection.End(xlToLeft).Select

kodlarından peş peşe bir sürü kullanarak aktif hücrenin en üstündeki ya da en solundaki hücreyi seçmeye çalışıyorum, şöyle bir kod var mı, o anda F5 seçili olsun (ve bu her zaman değişiyor bazen F6 bazen K20) F5 in en üst hücresini seçmek istediğimde F1 i seçecek en sol hücresini seçmek istediğimde A5 i seçecek.

xlUp ve XlLeft kodları arada boş hücreler varsa sorun çıkartıyor.

Umarım derdimi anlatabildim. Olmazsa ek hazırlayıp eklerim.


Teşekkürler.

 

[Orion1]

Satır:

activecell.row

sütun:

Activecell.column

 

[ÖmerBey]

Alttaki kodları deneyiniz...

Cells(Selection.Row, 1).Select 'Satırdaki ilk sütunu
Cells(1, Selection.Column).Select 'Sütundaki ilk satırı
Union(Cells(Selection.Row, 1), Cells(1, Selection.Column)).Select 'İkisini birden

 

[hukumran1]

Satır:

activecell.row

sütun:

Activecell.column

ʺCompile error:

Invalid use of propertʺ

Verdiğiniz kodları çalıştırdığımda yukarıdaki hatayı veriyor. Eklemem gereken başka şeyler mi vardı?

 

[Orion1]

Başlarına msgbox yazın.

 

[hukumran1]

Alttaki kodları deneyiniz...

Cells(Selection.Row, 1).Select 'Satırdaki ilk sütunu
Cells(1, Selection.Column).Select 'Sütundaki ilk satırı
Union(Cells(Selection.Row, 1), Cells(1, Selection.Column)).Select 'İkisini birden

Çok teşekkür ederim. Makrolarda gereksiz yığındaʺSelection.End(xlToLeft).Selecʺ kodundan kurtuldum.

İkisini birden kodunu anlayamadım. Başarılı şekilde çalışsa A1 hücresini seçmesi gerekmez mi? Kullanım yeri nedir? Meraktan sordum, işimi görecek kodları zaten verdiniz. Tekrardan teşekkürler.

 

[hukumran1]

Başlarına msgbox yazın.

İstediğim şey olmasa da şimdi çalıştı. Msgboxun bu şekilde kullanılabildiğini öğrendim.

 

[ÖmerBey]

İkisini birden kodunu anlayamadım. Başarılı şekilde çalışsa A1 hücresini seçmesi gerekmez mi?

İlk iki kodun yaptığı seçimlerin birleştirilmiş hali, yani F6 da olduğunuzu varsayalım; A6 ve F1 hücrelerinin ikisini birden seçmiş olursunuz.
İsteğinizi tam olarak anlayamadığım için bunu da istemiş olacağınızı varsaymıştım. İyi çalışmalar...

 

[hukumran1]

İlk iki kodun yaptığı seçimlerin birleştirilmiş hali, yani F6 da olduğunuzu varsayalım; A6 ve F1 hücrelerinin ikisini birden seçmiş olursunuz.
İsteğinizi tam olarak anlayamadığım için bunu da istemiş olacağınızı varsaymıştım. İyi çalışmalar...

Her şey için teşekkürler.

 

[anaksimandros]

Merhabalar, eskiden kalmış bir konu ama bende buna benzer bir yardım isteyebilir miyim?

A,B,C,D sütunları olan bir veritabanım var. D sütunu açılır kutu içinde seçeneklere sahip.

Açılır kutu içerisinden bir değeri seçtiğimde MsgBox içinde örneğin, D22 sütununun solunda B22 hücresindeki değeri nasıl yazdırabilirim.

Şu şekildeki bir uygulamayla başaramadım.

msgbox Cells(1, Selection.Column).Select & "adlı kişi başka bir alana taşınacaktır. Onaylıyor musunuz?"

 

[Korhan Ayhan]

Deneyiniz.

MsgBox Cells(ActiveCell.Row, "B") & " adlı kişi başka bir alana taşınacaktır. Onaylıyor musunuz?"

 

[anaksimandros]

Deneyiniz.

MsgBox Cells(ActiveCell.Row, "B") & " adlı kişi başka bir alana taşınacaktır. Onaylıyor musunuz?"

üstad Allah razı olsun. İstediğim oldu. Teşekkürler

 

[hkn27excel]

Alttaki kodları deneyiniz...

canım ustadım kardesım tsk edrım . Allh Razı olsun..