Macro ile bir sonraki hücrenin aktif olmasını sağlamak

[abinkays]

selam kardeşlerim

Excel'de bir macro hazırladım. Bu macro çalıştırıldığında hep aynı hücre aktif oluyor. bu yüzden de işlem hep aynı hücrede oluyor ki benim için bir sonraki yataydaki hücrenin aktif olması gerekiyor. Amacım macroyu atamış olduğum düğmeye tıkladığımda hep bir sonraki hücrenin aktif olması bu sayede onay işaretinin sırasıyla, her düğmeye basışta hemen sağındaki hücreye geçmesini sağlamak.

örnek dosya ektedir

Bu konuda sizlerden yardım istiyorum. Şimdiden çok teşekkür ediyorum. Selametle

 

[carpediem]

selam

Activecell.offset(0,1).select formülünü kullandığın zaman her tıkladığında sağındaki hücre aktif olacaktır.

 

[veyselemre]

Kodlarınızın en başına

ActiveCell.Offset(0, 1).Select

yazın,

sondaki
Range("D5").Select
satırını silin deneyin.

 

[Kemal Demir]

abinkays,

Kodunuz aşagıdaki Gibi değiştiriniz.
aşagıdaki koddaki sira 'nın açıklaması :"5 sıraki son dolu kolonu seçer."
kodun en alt satırındaki koyu ve altı cızılı kodu aktif etmeyiniz.

sira = Cells(ActiveCell.Row, 256).End(xlToLeft).Column
Cells(ActiveCell.Row, sira + 1).Select
    Selection.Font.ColorIndex = 2
    With Selection.Interior
        .ColorIndex = 43
        .Pattern = xlSolid
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Wingdings"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 2
    End With
    ActiveCell.FormulaR1C1 = "ü"
ActiveCell.Offset(0,1).Select   

[b][u]    'Range("D5").Select[/b][/u]
End Sub

 

[abinkays]

slm

Arkadaşlar ActiveCell.Offset(0, 1).Select
kodunu tam olarak nereye atacağım en üste acıklamaların altına attım olmadı.
düzenlenmiş halini deneyerek atabilir misiniz.

Allah şimdiden razı olsun. Tanımadığınız birine yardım ettiğiniz için Allah da sizin sıkıntılarınızı gidersin. Zor zamanlarınızda ve her zaman yardımcınız olsun

 

[Kemal Demir]

Ek'teki Dosyayı İnceleyiniz.

 

[abinkays]

slm

Rakkas kardeşim Allah senden ve diğer arkadaşlardan razı olsun. Problem hallolmuş sağol. benim sıkıntımı giderdiğin için Allah da senin bugünkü ve yarın ki tüm sıkıntılarını ihtiyaçlarını gidersin .... Amin

 

[Kemal Demir]

Üstat Deme Oyle Valla.Utandım .allah Hepimizden Razı olsun.