Makroya sayaç atamak

[mrt]

Makroyu çalıştırdığım sayfada bir hücreyi seçip ve o hücrenin makronun her çalıştırılmasında bir artmasını nasıl sağlarım.

 

[Kemal Demir]

sub kod()
.
.
.
.
Application.run "kaçıncıcalısması"
end sub

sub kaçıncıcalısması()

Range("a2").Value = Range("a2").Value * 1 + 1
End Sub

A2 değilde uzak bir hucre secersen daha iyi olur
Umarım ıstedığın budur.

 

[Ali]

Diyelim B8 hücresinde 65 sayısı var başka bir makro çalıştığında bunun 66 olmasınımı istiyorsunuz yoksa seçtiğiniz aktif hücrenin mutlaka artması biraz açarmısınız

 

[mrt]

Diyelimki B8 hücresini Sayaç olarak atadım. ( Başka tabirle Evrak seri no amaçlı)

B8 hücresi 65 ise makro çalıştığında B8 hücresi 66 olacak.

 

[Kemal Demir]

sub kod()
.
.
.
.
Application.run "kaçıncıcalısması"
end sub

sub kaçıncıcalısması()

Range("b8").Value = Range("b8").Value * 1 + 1
End Sub

zannedersem yukarıdaki kod ısınızı gorur

 

[enderturk]

sanırım kodu

Sub a()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

şeklinde yazarsan işini görür

Yada Kaydırma çubuğu ekleyip değeri değiştirebilirsin ama o zaman da sadece 1 hücreyle sınırlanırsın..

iyi çalışmalar