Belli koşulda aktarma

[Mdemir63]

selamlar,
Arkadaşlar ekteki dosyamda Alınacaklar sayfasında SONUÇ sütununda ALINDI yazdığımda o satırı o sayfadan silip alınanlar sayfasına aktarmasını istiyorum. Nasıl yapabilirim.

Saygılar

 

[Necdet]

Merhaba,

Aşağıdaki kodları "ALINACAKLAR" sayfasının kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim SonSat  As Long, _
        i       As Long
    
    On Error GoTo Son
    If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
    
    If StrComp(Target.Value, "Alındı", vbTextCompare) = 0 Then
        SonSat = Sheets("ALINANLAR").Cells(Rows.Count, "B").End(3).Row + 1
        i = Target.Row
        Range("B" & i & ":G" & i).Copy Sheets("ALINANLAR").Cells(SonSat, "B")
        Rows(i).Delete
    End If
    
Son:
        
End Sub

 

[Mdemir63]

Selamlar

Necdet abi dediğinizi yaptım ama çalışmadı

Saygılar

 

[Necdet]

Alınacaklar sayfasında Alındı yazdığınız an çalışması gerekir.
sizde zaten alındı yazılanlar var onu önce boşaltın sonra alındı yazın.

 

[Mdemir63]

Alınacaklar sayfasında Alındı yazdığınız an çalışması gerekir.
sizde zaten alındı yazılanlar var onu önce boşaltın sonra alındı yazın.

Selamlar,

Necdet abi
sadece alındı yazanı değil ne yazsam aktarıyor

saygılar

 

[Necdet]

heeee

kodda hata yapmışım = 1 değil = 0 olacaktı.

Kodları ilk mesajımda güncelledim.

 

[Mdemir63]

Çok teşekkür ederim Necdet abi

Saygılar

 

[Necdet]

Güle güle kullanınız.