Kayan Yazi

[ANTALYA 01]

Merhabalar

Ekteki Dosyada BAŞLA Tuşuna basıldığında Çalışan Makroyu Herhangi bir hücreye mouse ile tıklandığında durması mümkün mü ?Çünkü Hücreye bir harf falan yazıldığında makro duruyor.

 

[excellium]

VBA da ThisWorkbook u tıklatıp kod sayfasına şunu yapıştırın:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'veri = 0
MsgBox "durdu"
End Sub

 

[ANTALYA 01]

S

Merhaba
Denedim fakat ben tamamen işlemin iptal olmasını istiyorum.Yani herhangi bir hücreye tıkladığımda çalışmakta olan makro boşa çıksın.Sadece BAŞLA Tıklandığında çalışşsın Makro çalışırken herhangi bir hücreye tıklandığında MAKRO İşlem dışı kalsın.İlginiz için teşekkür ederim:

 

[Haluk]

İlgili sayfa modulüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    End
End Sub

 

[Seyit Tiken]

Alternatif : Herhangi bir hücreye çift tıklayarak işlemi durdurabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End
End Sub

Not : İlgili sayfanın kod bölümüne yapıştırınız.

 

[ANTALYA 01]

D

Merhaba kodlar çok güzel fakat çift tıklamayla duruyor ben hücreye bir defa tıklanmasıyla durmasını istiyorum mümkün mü ?Yani mouse bir hücreye tık diyecem duracak.

 

[ANTALYA 01]

D

Sub Yazi()
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(1, 1), 1)
son = Mid(Cells(1, 1).Value, 2, Len(Cells(1, 1).Value) - 1)
Cells(1, 1).Value = son + ilk
For i = 1 To 12000000
Next i
veri = Cells(1, 1).Value
Application.StatusBar = veri
Application.Caption = veri
Loop
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End
End Sub


Bu kodun Hücreye Tek tıklamayla çalışmasını istiyorum.