Hücre Dolu İse Bir Alt Hücreye Yaz

[hamitcan]

Kod bende çalışıyor. A1 hücresini her değiştirdiğinizde kod çalışır.

 

[zaffer1981]

üstad formülle k25 e değer geldikten sonra k24 e başka bir değer yazıyorum o zaman gelmiyor

 

[hamitcan]

Eğer herhangi bir hücre değiştiğinde kod çalışsın istiyorsanız, ilk satırı kapatarak kullanmanız gerekir. Yada sadece belli hücreler değiştiğinde kod çalışsın isterseniz o zaman o hücreleri belirtmeniz gerekir.

Private Sub Worksheet_Change(ByVal Target As Range)
    'If Target.Address <> "$A$1" Then Exit Sub
    Application.EnableEvents = False
    s = [k65536].End(3).Row
    If [k25] = "" Then s = s + 24 Else s = s + 1
    Cells(s, "k") = [b10]
    Application.EnableEvents = True
End Sub

 

[TİOS67]

BURADA ALT SATIRA GEC NASIL DİYEBİLİRİM İYİ CALIŞMALAR




Range("C5:C11").Select
Selection.Copy
Sheets("KİRACILAR").Select
Rows("1:1").Select
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveWindow.SmallScroll Down + 1
Sheets("ANASAYFA").Select
Range("C5").Select

 

[Korhan Ayhan]

Aşağıdaki komut aktif hücrenin bir alt hücresini seçer.

ActiveCell.Offset(1, 0).Select