Belirli sütunları sıfırlama ve raporlama sorusu

[yusufdk]

Merhabalar fazlaca acemi bir excel kullanıcısıyım 7-8 sayfalık bir excel tablosu oluşturdum bu tablo için 2 farklı makroya ihtiyacım var bunun hakkında yardımcı olabilirseniz çok sevinirim.

1.Sayfalardaki belirli bir sütunu bir buton aracılığıyla tek seferde sıfırlamak istiyorum.
2. Tüm sayfalardaki belirli bir sütunda birden büyük bir değer varsa bulunduğu satırı bana rapor olarak verebilecek bir makro.

Mümkün olup olmadıklarına dair fikrim yok yardımcı olmaya çalışan herkese şimdiden çok teşekkürler..

 

[MusaPEKEL]

Merhabalar fazlaca acemi bir excel kullanıcısıyım 7-8 sayfalık bir excel tablosu oluşturdum bu tablo için 2 farklı makroya ihtiyacım var bunun hakkında yardımcı olabilirseniz çok sevinirim.

1.Sayfalardaki belirli bir sütunu bir buton aracılığıyla tek seferde sıfırlamak istiyorum.
2. Tüm sayfalardaki belirli bir sütunda birden büyük bir değer varsa bulunduğu satırı bana rapor olarak verebilecek bir makro.

Mümkün olup olmadıklarına dair fikrim yok yardımcı olmaya çalışan herkese şimdiden çok teşekkürler..

Sub SutunuSifirla()
    Dim ws As Worksheet
    Dim colToReset As Integer
    Dim lastRow As Long

    ' Sıfırlanacak sütunu ve sayfayı belirle
    colToReset = 2 ' Sıfırlanacak sütunu belirtin (örneğin, B sütunu)
    Set ws = Sheets("Sayfa1") ' Sayfa adını belirtin

    ' Sayfanın son satırını bul
    lastRow = ws.Cells(ws.Rows.Count, colToReset).End(xlUp).Row

    ' Sütunu sıfırla
    ws.Range(ws.Cells(1, colToReset), ws.Cells(lastRow, colToReset)).Value = ""

End Sub



Sub BuyukDegerRaporu()
    Dim ws As Worksheet
    Dim colToCheck As Integer
    Dim targetValue As Double
    Dim cell As Range

    ' Kontrol edilecek sütunu, hedef değeri ve sayfayı belirle
    colToCheck = 2 ' Kontrol edilecek sütunu belirtin (örneğin, B sütunu)
    targetValue = 100 ' Hedef değeri belirtin
    Dim report As String
    report = ""

    ' Tüm sayfaları kontrol et
    For Each ws In Worksheets
        For Each cell In ws.Columns(colToCheck).Cells
            If cell.Value > targetValue Then
                report = report & "Sayfa: " & ws.Name & ", Satır: " & cell.Row & vbCrLf
            End If
        Next cell
    Next ws

    ' Raporu göster
    If report <> "" Then
        MsgBox "Büyük değerler bulundu:" & vbCrLf & report
    Else
        MsgBox "Büyük değer bulunamadı."
    End If
End Sub

 

[yusufdk]

Hocam çok teşekkürler en kısa zamanda deneyeceğim