makro ile tarama

[zafer kahveci]

Merhabalar,

Ekte dosyada tam olarak ne istediğimi belirttim, yardımlarınızı rica ediyorum,

Teşekkürler

 

[Necdet]

Merhaba,

Eğer doğru anladıysam, aşağıdaki kodları ThisWorkbook'un kod bölümüne kopyalayıp deneyiniz.

Dosya her açılışta mesaj verecektir.

Private Sub Workbook_Open()
    
    Dim Sayfa   As Worksheet
    Dim i       As Long
    Dim j       As Long
    Dim Mesaj   As Variant
    
    Mesaj = "LÜTFEN DİKKAT" & Chr(10) & "--------------------"
    
    For Each Sayfa In Worksheets
        i = Sayfa.Cells(Rows.Count, "M").End(3).Row
        If i < 3 Then i = 3
        For j = 3 To i
            If Not Sayfa.Cells(j, "M") = "" Then _
                Mesaj = Mesaj & Chr(10) & _
                        "Sayfa " & Sayfa.Name & " : " & _
                        "Satır No : " & j & ", Değer : " & _
                        Sayfa.Cells(j, "M")
        Next j
    Next Sayfa
    
    If Mesaj = "" Then
        MsgBox "ASAYİP BERKEMAL....", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    Else
        MsgBox Mesaj
    End If
    
End Sub

 

[zafer kahveci]

Hocam cevap için teşekkürler ama, kodu uyguladım fakat istediğimi alamadım,hiçbir hata mesajı da almıyorum, ingilizce versiyon kullanıyorum ondan olabilir mi?

 

[Necdet]

Hocam cevap için teşekkürler ama, kodu uyguladım fakat istediğimi alamadım,hiçbir hata mesajı da almıyorum, ingilizce versiyon kullanıyorum ondan olabilir mi?

Kodları ilgili yere kopyaladıktan sonra dosyayı kapatıp tekrar açmalısınız. Açarkende makroları etkinleştirmelisiniz.

 

[zafer kahveci]

Hocam olmadı, kod da bi sorun olabilir mi?

 

[Necdet]

Hocam olmadı, kod da bi sorun olabilir mi?

Siz dosyanızı eklerseniz bakarız, nerede hata yaptığınıza.

Suçu benim üstüme atmayınız.

 

[zafer kahveci]

Estağfurullah hocam, yanlış anlaşıldım

çok deniyorum ama bi yerde atlıyorum sanırım hatayı, dosyayı ekledim tekrar.

 

[Necdet]

Evet tahmin ettiğim gibi kodları yanlış yere kopyalamışsınız.

Ben ilk mesajımda size "ThisWorkbook" un kod bölümüne kopyalayın dedim, siz 101 ve 102. sayfaların kod bölümüne kopyalamışsınız.

Sadece "ThisWorkbook" a kopyalamalıydınız.

 

[zafer kahveci]

Necdet Hocam,
Çok teşekkürler, elinize emeğinize sağlık.

İyi çalışmalar.