SAYFALAR ARASI VERİ TOPLAMA

[imdatsaral]

SELAM ARKADAŞLAR

BENİM AŞAĞIDAKİ KODLARI ÇALIŞTIRAMADIM YARDIMCI OLURSANIZ SEVİNİRİM.

Sub SARALm()
ActiveSheet.Unprotect ""
Application.ScreenUpdating = False
Set S1 = Sheets("Giriskayitlari")
Set s2 = Sheets("STKONTROL")
s2.[B16:L160].ClearContents
If [H1] = "" Then
Exit Sub
End If
For A = 6 To S1.[A65536].End(3).Row
If S1.Cells(A, "A") = s2.[H1] Then
c = c + 1
s2.Cells(c + 15, "B") = S1.Cells(A, "B")
s2.Cells(c + 15, "C") = S1.Cells(A, "D")
s2.Cells(c + 15, "D") = S1.Cells(A, "E")
s2.Cells(c + 15, "E") = S1.Cells(A, "F")
s2.Cells(c + 15, "F") = S1.Cells(A, "J")
s2.Cells(c + 15, "G") = S1.Cells(A, "N")
s2.Cells(c + 15, "H") = S1.Cells(A, "S")
s2.Cells(c + 15, "I") = S1.Cells(A, "T")
End If

Next
Application.ScreenUpdating = True
ActiveSheet.Protect ""
End Sub

EKTEKİ DOSYADA Giriskayitlari SAYFASINDAN STKONTROL SAYFASINA VERİLERİ ALMAK İSTİYORUM Giriskayitlari B:B SÜTÜNUNDAKİ DOLU HÜCREYE ÇİFT TIKLADIĞIMDA ÇALIŞMASI GEREKİYOR AMA YAPAMADIM

 

[kulomer46]

Değerli arkadaşım,

Aşağıda kodunda yapman gereken 2 değişiklik koyu(bold) renk verilerek gösterilmiştir.
Bu değişiklikleri yaptığın zaman kodun çalışmaktadır.

Selamlar...

Sub SARALm()
ActiveSheet.Unprotect ""
Application.ScreenUpdating = False
Set S1 = Sheets("Giriskayitlari")
Set s2 = Sheets("STKONTROL")
s2.[B16:L160].ClearContents
If [H1] = "" Then
Exit Sub
End If
For A = 2 To S1.[A65536].End(3).Row
If S1.Cells(A, "B") = s2.[H1] Then
c = c + 1
s2.Cells(c + 15, "B") = S1.Cells(A, "B")
s2.Cells(c + 15, "C") = S1.Cells(A, "D")
s2.Cells(c + 15, "D") = S1.Cells(A, "E")
s2.Cells(c + 15, "E") = S1.Cells(A, "F")
s2.Cells(c + 15, "F") = S1.Cells(A, "J")
s2.Cells(c + 15, "G") = S1.Cells(A, "N")
s2.Cells(c + 15, "H") = S1.Cells(A, "S")
s2.Cells(c + 15, "I") = S1.Cells(A, "T")
End If

Next
Application.ScreenUpdating = True
ActiveSheet.Protect ""
End Sub

 

[imdatsaral]

[U]kulomer46[/U]
TEŞEKKÜR EDERİM SAĞOLASIN

 

[kulomer46]

[U]kulomer46[/U]
TEŞEKKÜR EDERİM SAĞOLASIN

Selamlar ... : )