Skip to main content

AccessTr.neT


Düğmeyle Makroyu Çalıştırmak Ve Durdurmak

Düğmeyle Makroyu Çalıştırmak Ve Durdurmak

Çözüldü #1
Arkadaşlar merhaba. Aşağıda yazılı kodu düğmeye atamak istiyorum. Düğmeye ilk basınca çalıştırmak; düğmeye ikinci defa basınca durdurmak ve bu düğmeyi menüye ekleyerek tüm Excel çalışmalarında kullanmak istiyorum. Yardımlarınızı bekliyorum. Şimdiden çok teşekkürler ederim.



Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Static xRow
Static xColumn
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Cevapla
#2
(28/04/2020, 11:14)lion2577 yazdı: Arkadaşlar merhaba. Aşağıda yazılı kodu düğmeye atamak istiyorum. Düğmeye ilk basınca çalıştırmak; düğmeye ikinci defa basınca durdurmak ve bu düğmeyi menüye ekleyerek tüm Excel çalışmalarında kullanmak istiyorum. Yardımlarınızı bekliyorum. Şimdiden çok teşekkürler ederim.



Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 20140318
Static xRow
Static xColumn
If xColumn <> "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Merhaba.Örnek dosya eklerseniz yardımcı olunur.Düğme yerine toggle button bence daha iyi olabilir durdurup çalıştırmak için.
Dosya eklerseniz userformda ekleyin.
Ayrıca koddan anladığım sayfa kodu olduğu için seçilen kolon ve satırlar arasında işlem oluyor.Formdayken peki nasıl uygulanacak?
Eğer dosya ekler ve açıklama eklerswniz yardımcı oluruz.
Cevapla
#3
İlginiz için çok teşekkür ederim. Yapmak istediğim işlemi şöyle açıklayayım. Yukarıdaki kod bulunduğun hücreyi yatay ve dikey olarak renklendiriyor. Ben bu kodu  herhangi bir düğmeye veya butonu atamak istiyorum. Amacım bu düğmeye istediğimiz zaman bastığımızda bulunduğumuz hücreyi yatay ve düşey olarak renklendirsin. İstediğimiz zamanda tekrar düğmeye bastığımız da reklendirmeyi durdursun. Bu düğmeyi de menüye ekleyerek her Excel dosyasında kullanmak istiyorum.
Son Düzenleme: 28/04/2020, 14:37, Düzenleyen: lion2577.
Cevapla
#4
Rica ederim.
Sayfaya bir toggle buttun eklerim ve her tıklamada tersi çalışır.

Akşam unutmazsam bakayım.Zaten kodlar hazır.Sadece ayar gerek.
Cevapla
#5
Doğru anladıysam birşeler yaptım.

[Resim: do.php?img=10142]


Modül kodlar;
Public dursunmu As Boolean

Public Sub Basla()
    dursunmu = False
End Sub

Public Sub Durdur()
      dursunmu = True
End Sub


Sayfa kodlar;

Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static xRow
    Static xColumn
   
    If dursunmu = True Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
   
    If xColumn <> "" Then
        Columns(xColumn).Interior.ColorIndex = xlNone
        Rows(xRow).Interior.ColorIndex = xlNone
    End If
   
    pRow = Selection.Row
    pColumn = Selection.Column
    xRow = pRow
    xColumn = pColumn
    With Columns(pColumn).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    With Rows(pRow).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

Eğer verdiğim ilgili kodu alttaki gibi yaparsanız makro çalışınca renkler gider.

Public Sub Durdur()
      dursunmu = True
      Cells.Interior.ColorIndex = xlNone
End Sub
.rar test.rar (Dosya Boyutu: 12,8 KB | İndirme Sayısı: 6)
Cevapla
#6
(28/04/2020, 14:25)lion2577 yazdı: İlginiz için çok teşekkür ederim. Yapmak istediğim işlemi şöyle açıklayayım. Yukarıdaki kod bulunduğun hücreyi yatay ve dikey olarak renklendiriyor. Ben bu kodu  herhangi bir düğmeye veya butonu atamak istiyorum. Amacım bu düğmeye istediğimiz zaman bastığımızda bulunduğumuz hücreyi yatay ve düşey olarak renklendirsin. İstediğimiz zamanda tekrar düğmeye bastığımız da reklendirmeyi durdursun. Bu düğmeyi de menüye ekleyerek her Excel dosyasında kullanmak istiyorum.

(28/04/2020, 21:37)feraz yazdı: Doğru anladıysam birşeler yaptım.

[Resim: do.php?img=10142]


Modül kodlar;
Public dursunmu As Boolean

Public Sub Basla()
    dursunmu = False
End Sub

Public Sub Durdur()
      dursunmu = True
End Sub


Sayfa kodlar;

Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static xRow
    Static xColumn
   
    If dursunmu = True Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
   
    If xColumn <> "" Then
        Columns(xColumn).Interior.ColorIndex = xlNone
        Rows(xRow).Interior.ColorIndex = xlNone
    End If
   
    pRow = Selection.Row
    pColumn = Selection.Column
    xRow = pRow
    xColumn = pColumn
    With Columns(pColumn).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    With Rows(pRow).Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

Eğer verdiğim ilgili kodu alttaki gibi yaparsanız makro çalışınca renkler gider.

Public Sub Durdur()
      dursunmu = True
      Cells.Interior.ColorIndex = xlNone
End Sub
İlgi alaka ve emeğiniz için teşekkür ederiz. Yapmış olduğunuz çalışmada eğer hücreler renkliyse veya renklendirilecekse onlarıda siliyor.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task