hücre içerine gör makro çalıştırma

[gokhanbek]

acaba 1 yazdıgımda makro1
2 yazdığımda makro2 çalışması mümkünmü acaba

 

[Vedat Özer]

acaba 1 yazdıgımda makro1
2 yazdığımda makro2 çalışması mümkünmü acaba

Selamın Aleyküm,

Tam Net Hatırlamıyorum ama =eğer(a1=1;"makro1";"makro2")
Görmüştüm (Sayın,Uzmanamele'den Alıntıdır.)


Hayırlı Günler

 

[gokhanbek]

Selamın Aleyküm,

Tam Net Hatırlamıyorum ama =eğer(a1=1;"makro1";"makro2")
Görmüştüm (Sayın,Uzmanamele'den Alıntıdır.)


Hayırlı Günler

vedat bey

elimde kayıtlı iki makro var bunların birisi kayıt diğeri ise içerik temizleme

b15 hücresine 1 yazdığımda kaydetmesi 2 yazdığımda silmesini istiyorum mümkünmü acaba

 

[Vedat Özer]

Merhaba Bende Tam Bilmiyorum ama Örnek Dosya ekleyin Yapmaya Çalışıyım

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B15]) Is Nothing Then Exit Sub
    If Target = Empty Then Exit Sub
    If Target = 1 Then Call MAKRO1
    If Target = 2 Then Call MAKRO2
Son:
End Sub

 

[gokhanbek]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B15")) Is Nothing Then
DataAktar
End If

BU DEĞİŞİKLİK YAPILDIĞINDA DATAAKTAR MAKROSUNU ÇALIŞTIRIYOR.
BUNU DEĞİŞİKLİK YAPILDIPINDA DEĞİLDE B15 HÜCRESİNE "1" YAZDIĞIMDA ÇALIŞSIN İSTİYORUM. 2 YAZDIĞIMDA BAŞKA BİR MAKRO ATAYARAK İÇERİĞİ SİLMEK İSTİYORUM

 

[gokhanbek]

Korhan bey çok sağolun
işim oldu

 

[gokhanbek]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Son
If Intersect(Target, [B15]) Is Nothing Then Exit Sub
If Target = Empty Then Exit Sub
If Target = 1 Then Call DataAktar
If Target = 2 Then Call Makro1
End If

On Error GoTo Son
If Intersect(Target, [B6:B7]) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) = True Then
Application.EnableEvents = False
If Len(Target.Value) = 4 Then
Target = TimeSerial(Left(Target.Value, 2), Right(Target.Value, 2), 0)
ElseIf Len(Target.Value) = 3 Then
Target = TimeSerial(Left(Target.Value, 1), Right(Target.Value, 2), 0)
ElseIf Len(Target.Value) < 3 Then
Target = TimeSerial(0, Target.Value, 0)
End If
Application.EnableEvents = True
End If
Son:
End Sub

hata mesajı veriyor neden