şarta bağlı kopyala yapıştır yapmak

[Cihannalbant]

cizelgede J2 DEĞERİNE "tamamlandı" yazdığımda I2 hücresindeki formül ile hesaplanmış değeri L2 hücresine değer olarak kopyalayıp yapıstırmak istiyorum .
VBA ile yapılabilirmi? Birde listem aynı formatta aşağıya doğru gidiyor. Hocam yardımcı olur musunuz

 

[muratboz06]

L2 hücresine =Eğer(J2="Tamamlandı";L2=I2;"") yazıp aşağıya doğru kopyalasanız problem çözülür mü?

 

[Cihannalbant]

böyle yine formülleriyle getiriyor ama ben J2 hücresine tamamlandı yazdığım andaki I2 nın sadece değerini L2 ye kopyala yapıştır yapsın istiyorum

cünkü ı2 hücresindeki değerler sürekli değişiyor

 

[Recep İpek]

Bu yöntem size yardımcı olur mu?

Excel'de Gelişmiş Filtre ile verileri başka bir çalışma sayfasına nasıl kopyalarım?

www.extendoffice.com

 

[Korhan Ayhan]

İşlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayıp deneyiniz.

J sütununa elle "Tamamlandı" yazdığınızda kod devreye girecektir.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
    If Intersect(Target, Range("J2:J" & Rows.Count)) Is Nothing Then Exit Sub
    For Each Veri In Intersect(Target, Range("J2:J" & Rows.Count))
        If UCase(Replace(Replace(Veri.Value, "i", "İ"), "ı", "I")) = "TAMAMLANDI" Then
            Veri.Offset(, 2).Value = Veri.Offset(, -1).Value
        Else
            Veri.Offset(, 2).Value = ""
        End If
    Next
End Sub