hücreye veri girince o satırı infaz sayfasının en son satırına kopyalasın

[enes2000eren]

Selam.arkadaşlar dosyamda çeşitli veriler var.dosyamdaki meram sayfasındaki (- aı - )sütununa infaz yazdığımda
1-meram sayfasındaki infaz yazılan satırı infaz sayfasının en son satırına kopyalayıp yapıştırsın

 

[hamitcan]

Size önerim her sayfayı aktif ettiğinizde İNFAZ yazan satırları aktarmanız. Yoksa satırda bir değişiklik yaptığınızda bu değişiklikler İNFAZ sayfasında görünmez.

 

[enes2000eren]

sağolun hamitcan.peki bunu makro ile nasıl yapabilirim.formül ile sayfanın boyutu çok büyük oluyor

 

[enes2000eren]

sayın hamitcan.o dediğiniz aktif durum güncellmesini nasıl yapacağız.bir katkınız olabilir mi?

 

[usubaykan]

Merhaba;

Aşağıdaki kodu MERAM adlı sayfanızın kod bölümüne uygulayın. Kod [AI] sütununda İNFAZ yazdığınız her satırda çalışacaktır.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Son_Satır As Long
    If Intersect(Target, [AI:AI]) Is Nothing Then Exit Sub
    If Target = "İNFAZ" Then
    Son_Satır = Sheets("İNFAZ").Range("A65536").End(3).Row + 1
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "AI")).Copy
    Sheets("İNFAZ").Range("A" & Son_Satır).PasteSpecial
    Application.CutCopyMode = False
    End If
End Sub

Not: Private Sub Worksheet_Change(ByVal Target As Range) kısmına yazıldığı için mutlaka [AI] sütunundaki veriyi tetiklemeniz gerekmektedir.

Yada;
MEYRAM sayfasına buton ekleyip bu kodu kullanacaksınız.

Option Explicit
Sub Aktar()
Dim U As Long, Son_Satır As Long
Sheets("İNFAZ").Range("A5:AI65536").ClearContents
For U = 5 To [AI65536].End(3).Row
If Cells(U, "AI") = "İNFAZ" Then
Son_Satır = Sheets("İNFAZ").Range("A65536").End(3).Row + 1
Rows(U).Copy
Sheets("İNFAZ").Cells(Son_Satır, "A").PasteSpecial
Application.CutCopyMode = False
End If
Next
End Sub

 

[enes2000eren]

tşk.denemedim ama ilgilendiğiniz için tşk.inşallah olur.

 

[usubaykan]

Merhaba;

Umarım ;-)

tşk.denemedim ama ilgilendiğiniz için tşk.inşallah olur.