vba yardim

[TIRYAKI1]

merhaba ardaslar

size sormak istedigim resimde eklemis oldugum tabloda son satirin uzerine gelip enter tusuna bastigimda tablo word de oldugu gibi asagiya dogru kaymasi icinbildiginiz makro yada sistemvarmi yardim edebilirseniz sevinirim
simdiden tesekur ederim

 

[Ömer BARAN]

Merhaba.

Açtığınız diğer konuyu kapatınca dosya bağlantı adresini özel mesaj ile göndermiştim,
aynı konuyu tekrar açmışsınız.

Özel mesajlarınızı (sayfada sağ üstte) kontrol ediniz.
.

 

[TIRYAKI1]

Merhaba.

Açtığınız diğer konuyu kapatınca dosya bağlantı adresini özel mesaj ile göndermiştim,
aynı konuyu tekrar açmışsınız.

Özel mesajlarınızı (sayfada sağ üstte) kontrol ediniz.
.

merhabalr dosyayi aldim hocam cok tesekur ederim tam istedigim gibi olmus eline koluna saglik

 

[Ömer BARAN]

merhabalr dosyayi aldim hocam cok tesekur ederim tam istedigim gibi olmus eline koluna saglik

Estağfurullah, iyi günler dilerim.
.

 

[alicimri]

Alternatif,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
say = Range("f65536").End(3).Row
If Target.Row = say - 1 Then
Rows(Target.Row).Insert Shift:=xlDown
say = Range("f65536").End(3).Row - 1
Cells(say, 5).FormulaLocal = "=Topla(" & Replace(Range("E2:E" & say - 1).Address, "$", "") & ")"
Cells(say, 6).FormulaLocal = "=Topla(" & Replace(Range("F2:F" & say - 1).Address, "$", "") & ")"
Range("A" & say - 1).Select
End If
End Sub

 

[Necdet]

Merhaba,

Lütfen aşağıdaki "Konu Başlıkları Hakkında" konulu linki inceleyiniz.

TIKLAYINIZ