işaretli olan satırı sayfa 2 ye atma

[serhat2013]

arkadaşlar merhaba,

ekteki dosyada şarta bağlı olarak yeşile dönüşen satırı sahfa 2 ye atmasını istiyorum . yeşil satırların sipariş sayfasında olmasını istemiyorum .

 

[YUSUF44]

Dosyanızda Sayfa2 bulunmuyor ama bulunduğunu varsayarak aşağıdaki kodları Sipariş sayfasının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırırsanız H2:H1000 aralığında hücreyi "kaynatıldı" olarak değiştirdiğinizde o satırı Sayfa2'ye aktarır:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [H2:H1000]) Is Nothing Then Exit Sub
    On Error GoTo 10
    If Target = "kaynatıldı" Then
        Application.EnableEvents = False
            a = Target.Row
            yeni = Sheets("Sayfa2").Cells(Rows.Count, "B").End(3).Row + 1
            Rows(a).Cut Sheets("Sayfa2").Cells(yeni, "A")
            Rows(a).Delete Shift:=xlUp
        Application.EnableEvents = True
    End If
10:
End Sub

 

[serhat2013]

yusuf bey merhaba,

sorumda eksikler olmasına rağmen verdiğiniz cevap için teşekkür ederim .