arıza satırlarını diğer sayfaya aktarma

[ibrahimaktas1905]

iyi akşamlar üstatlar

elimde bulunan bir arıza bildirimi ve yapılan işlemler ile alakalı bir form var arıza yazılı olanları (1) yapılan işlemleri (0) kodu ile tanımlasak sadece arıza olan satırları sayfa 2 de kendi kısımlarına atabilme durumumuz var mıdır?

örnek dosyayı ekliyorum.

şimdiden teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Ariza_Aktar()
    Dim S1 As Worksheet, S2 As Worksheet, Hucre As Range
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    For Each Hucre In S2.Range("A7:A54")
        If Hucre.Font.Bold = False Then
            Hucre.MergeArea.Resize(, 6).ClearContents
        End If
    Next
    
    For Each Hucre In S1.Range("F7:F54")
        If Hucre.Value = 1 Then
            S1.Range("A" & Hucre.Row & ":F" & Hucre.Row).Copy _
            S2.Cells(Hucre.Row, 1).End(3)(2, 1).Resize(, 5)
        End If
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "Arızalar aktarılmıştır.", vbInformation
End Sub

 

[ibrahimaktas1905]

denemesini yapıyorum daha doğrusu uyarlamasını yapıp olup olmadığını sizlere ileteceğim

 

[ibrahimaktas1905]

Deneyiniz.

Option Explicit

Sub Ariza_Aktar()
    Dim S1 As Worksheet, S2 As Worksheet, Hucre As Range
  
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
  
    For Each Hucre In S2.Range("A7:A54")
        If Hucre.Font.Bold = False Then
            Hucre.MergeArea.Resize(, 6).ClearContents
        End If
    Next
  
    For Each Hucre In S1.Range("F7:F54")
        If Hucre.Value = 1 Then
            S1.Range("A" & Hucre.Row & ":F" & Hucre.Row).Copy _
            S2.Cells(Hucre.Row, 1).End(3)(2, 1).Resize(, 5)
        End If
    Next
  
    Set S1 = Nothing
    Set S2 = Nothing
  
    MsgBox "Arızalar aktarılmıştır.", vbInformation
End Sub

 

[ibrahimaktas1905]

çok teşekkür ederim yaptığınız kod işe yaradı.
ayrıca üyeliği olan kişilerin ihtiyaçlarına sabırla cevap verdiğiniz için de teşekkürü borç bilirim.
herşey için teşekkür ederim.