Sayfadan Sayfaya Kesme yoluyla veri aktarma

[ferhatgurbuz]

Ekteki dosyanın ŞİFRELERİ 1 dir

Ekteki dosyanın data sayfasındaki F Sutununa karar konularını giriyorum. Örneğin KABUL VEYA RET GİBİ Benim olmasını istediğim F sutunundaki herhangi bir hücreye veri girildiğinde F sutunundaki hücrelerde herhangi bir veri olduğunda verinin olduğu satırı diğer sayfaya taşısın.

 

[ibrahim_44]

Hocam Data sheetinin kod sayfasına aşağıdaki kodu yazıp denermisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("Data")
Set s2 = Sheets("Karara_Çıkanlar")

If Intersect(Target, [f4:f65000]) Is Nothing Then Exit Sub
For sira = 4 To [f65000].End(3).Row
s2.Range("A" & sira) = s1.Range("A" & sira)
s2.Range("B" & sira) = s1.Range("B" & sira)
s2.Range("C" & sira) = s1.Range("C" & sira)
s2.Range("D" & sira) = s1.Range("D" & sira)
s2.Range("F" & sira) = s1.Range("F" & sira)


Next

End Sub

 

[Ayhan Ercan]

@ferhatgurbuz,,

dosyanızı inceledim, sizinde kendi yazmış olduğunuz kodlar olduğundan bu kodları incelemeye calıştım ama biraz kafam karıştı. dolayısıyla sizin için en iyisi kesmek için bir örnek vermektir herhalde...

Aşağıdaki kodu kendinize göre uyarlayın...

If Sheets("Data").Cells(4, 6) <> "" Then
Sheets("Data").Range("a4:f4").Cut Sheets("Karara_Çıkanlar").Cells(4, 1)
End If