veri sayisallastirma

[jeoferkan]

Arkadaslar elimde ki veriyi baska bir sayfada bulunan bir veriye göre syisallastirmak istiyorum.
Ayn1 sayfada bunu formullerle yapmak mümkün ancak bu verileri baska bir programa aktaracagim icin sürekli bu isleme tabi olacak veriler degerler degisiyor. Sanirim derdimi anlatamayacagim en iyisi bir örnek yüklemek

 

[bedersu]

Sayın jeoferkan,
Eklediğiniz dosyaya göre aşağıdaki kodlar işinizi görebilir:

Sub sırala()

For Each veri In Range("A3:C9")
a = veri.Column
aa = veri.Row
satır = a + 12

    Range("I3:I23").Find(What:=veri).Activate
    
    Cells(aa, satır) = ActiveCell.Offset(0, 1)
Next
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
Application.ScreenUpdating = False
Dim S1 As Worksheet
Dim S2 As Worksheet
Dim S3 As Worksheet
Set S1 = Sheets("SAYFA1")
Set S2 = Sheets("SAYFA2")
Set S3 = Sheets("SAYFA3")

S1_son_sat = S1.[a65536].End(3).Row
S2_son_sat = S2.[a65536].End(3).Row
s3_baslangic = 2

S3.Range("A2:C65536").ClearContents

For i = 2 To S1_son_sat
For a = 2 To S2_son_sat

If S1.Cells(i, "a") = S2.Cells(a, "a") Then
S3.Cells(s3_baslangic, "a") = S2.Cells(a, "b")

ElseIf S1.Cells(i, "b") = S2.Cells(a, "a") Then
S3.Cells(s3_baslangic, "b") = S2.Cells(a, "b")

ElseIf S1.Cells(i, "c") = S2.Cells(a, "a") Then
S3.Cells(s3_baslangic, "c") = S2.Cells(a, "b")
s3_baslangic = s3_baslangic + 1

Else
End If

Next a: Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[jeoferkan]

fw

Sayin Bedersu ve Coban ilgi ve alakaniza taesekkür ederim.
Vermis oldugunuz ornekleri inceledim kendi yap1ma uyarlayamad1m. ben daha cok hücreyi kapsayan ve bazi hücrelerin deigisiklige ugramayan bir yöntem ar1yorum. Sanirim yine örnek vererek derdimi anlatabilecegim.