Çözüldü Eğer iki hücredeki sayılar veya değerler eşit ise birşey yapma, değilse makroyu çalıştır.

[ptcsite]

Aşağıdaki makroda neyi hata yapıyorum... İki hücre değeri aynı olmasına rağmen kopyalama ve yapıştırma işlemlerini yapıyor makro...
Not: C3 hücresi başka bir sayfadan formul ile geliyor.
D3 hücresindeki veri de Makro ile C3 hücresinden kopyalanıyor.
- Ben bunu bir düğmeye atadım. Düğmeye bastığımda C3 hücresindeki veri D3 hücresindeki veri ile aynı ise kopyala/yapıştır işlemleri başlamasın istiyorum ama verileri yinede kopyalayıp yapıştırıyor.

Sub Grafik_Gunveri_Aktar()
'
ActiveSheet.Unprotect Password:="12345"
If Sheets(6).Range("C3") = Sheets(6).Range("D3") Then Exit Sub

Application.ScreenUpdating = False
    Range("G2:G52").Select
    Selection.ClearContents
    Range("F2:F52").Select
    Selection.Copy
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E2:E52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2:D52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2:C52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H2").Select
    Application.CutCopyMode = False
    Range("I2").Select
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="12345"

End Sub

 

[ptcsite]

Şöyle yaptım gene olmadı

Sub Grafik_Gunveri_Aktar()


ActiveSheet.Unprotect Password:="12345"
If Sheets(6).Range("C3") <> Sheets(6).Range("D3") Then
Application.ScreenUpdating = False
    Range("G2:G52").Select
    Selection.ClearContents
    Range("F2:F52").Select
    Selection.Copy
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E2:E52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2:D52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2:C52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H2").Select
    Application.CutCopyMode = False
    Range("I2").Select
Application.ScreenUpdating = True
Else: Exit Sub
End If
ActiveSheet.Protect Password:="12345"
End Sub

 

[ptcsite]

Bu şekilde çözdüm Sheets(6) komutu yanıltmış beni...

Sub Grafik_Gunveri_Aktar()

ActiveSheet.Unprotect Password:="12345"

If Range("C3").Value = Range("D3").Value Then

ActiveSheet.Protect Password:="12345"

Else

ActiveSheet.Unprotect Password:="12345"

Application.ScreenUpdating = False
    Range("G2:G52").Select
    Selection.ClearContents
    Range("F2:F52").Select
    Selection.Copy
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E2:E52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D2:D52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2:C52").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H2").Select
    Application.CutCopyMode = False
    Range("I2").Select
Application.ScreenUpdating = True

ActiveSheet.Protect Password:="12345"
End If
End Sub

Diğer Soru: Bu makro sadece 17:30 dan sonra nasıl aktif olabilir... Örneğin 17:30 dan önceyse çalışmasın sonraysa mesaj kutunda şu saatten sonra aktif olur mesajı çıksın.