Kosula gore farklı sayfa ve hucrelere aktarım

[Eser Gökay]

arkadaslar satırda belli kritere uyan satırları baska sayfaya aktarma konusunda yardıma ihtiyac duyuyorum. forumdaki orneklerde (benim bulabildigim) satır aynen tasındıgı icin kendime uyarlayamadım. ilgilerinizi rica ederim.

 

[Orion1]

Ben kodları yazdım I hücresindeki veriyi a sütununa atıyor.
Kodlar çalışma sayfasının kod bölümündedir.
Kırmızı renkli satırın altına siz diğer hücreler için devam ediniz.
Dosya ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s2 As Worksheet, son_sat As Long
If Intersect(Target, [Q5:Q65536]) Is Nothing Then Exit Sub
On Error Resume Next
If Cells(Target.Row, "I").Value = "" Then
    MsgBox "Fatura Tarihini giriniz..!!", vbCritical, "DİKKAT"
    Cells(Target.Row, "I").Select
    Exit Sub
End If
Set s2 = Sheets("Sayfa2")
son_sat = s2.Cells(707, "A").End(xlUp).Row + 1
If son_sat >= 705 Then
    MsgBox "Satır 706 oldu..Başka kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
If UCase(Target.Value) = "AKTAR" Then
    [B][COLOR="Red"]s2.Cells(son_sat, "A").Value = Cells(Target.Row, "I").Value[/COLOR][/B]
End If
Set s2 = Nothing
End Sub

 

[Orion1]

selamlar

ilginize tesekkur ediyorum. ancak sizden macro olarak yazmanizi rica etsem kabalık etmis olur muyum ?

1- Aslında kriter kısmı icin farklı sayfalara veri gonderecek 3 farklı kriter kullanacağım. ben gelecek cevaba gore gerisini yazmayı dusunuyordum.

2- veri kaynagının kodlarında yeterince uzun ve karmaşık kodlar var. oraya ek yapmaya kalkarsam sıkıntı yaşayabilirim.


özür diliyorum rahatsızlık verdiysem...

Zaten mende makro yazdım .Sizde makro istiyorsunuz zaten.

 

[Eser Gökay]

ozur dilerim sanırım sıkıntımı net anlatamadım.

"aktar" ifadesi sadece bir ornekti. kriter olarak ben daha farklı 3-4 tane kriter ve her kritere farklı sayfa kullanmayı tasarlıyorum. forumdan gelecek cevaba göre diğer kriterlerim için kodları tamamlayıp butona bağlamayı düşünüyordum. yani anlık aktarımdan öte ben rapor türü bir şey alacağım. kriterlerimin veri kaynağı aynı ama farklı sayfa'lara ve hücrelere veri gonderecek. ozur diliyorum derdimi net anlatmayıp vaktinizi aldıgım icin.

 

[Orion1]

Not Hanesi Aktar Oldugunda verileri sayfa2'deki yerlerine gönderilmesi

Bu yukarıdaki isteği siz yapmışsınız,ve bende istediğiniz gibi yapmışım.
Şimdi ise öyle değil diyorsunuz.O zaman sorunuzu doğru bir şekilde sormalıydınız.Benden bu kadar.