KOD KARŞILAŞTIRMA HAKKINDA YARDIM

[fazli77]

Değerli forumdaşlar ekteki dosya ile ilgili yardımcı olursanız sevinirim.
saygı ve selamlar..........

 

[Kemal Demir]

Ek'teki Dosya Zannedersen İstediğinizi Karşılıyor

 

[fazli77]

Sayın Rakkas,

Çalışmanız için teşekkürler, fakat farklı dosyalara bu formülü uygulayamıyorum. Ayrıca kodla isimleri ayrı sütunlara yazdırmanız mümkünmü acaba şimdiden teşekkür eder çalışmalarınızda başarılar dilerim
Saygı ve selamlarımla....

 

[veyselemre]

2 çözüm

[vb:1:31a46015d6]Sub aktar()
z = Now()
cson = [c65536].End(3).Row
ReDim a(1 To cson, 3 To 4)
For x = 1 To cson
a(x, 3) = Val(Replace(Cells(x, 3), " ", ""))
a(x, 4) = Cells(x, 4)
Next x
[c:d].ClearContents
ason = [a65536].End(3).Row
For x = 1 To ason
For y = 1 To cson
If Cells(x, 1) = a(y, 3) Then
Cells(x, 3) = Format(a(y, 3), "### ## ####")
Cells(x, 4) = a(y, 4)
Exit For
End If
Next y, x
MsgBox Format(Now - z, "h:m:s")
End Sub
Sub aktar1()
z = Now()
Dim col1 As New Collection
Dim col2 As New Collection

cson = [c65536].End(3).Row
For x = 1 To cson
col1.Add Val(Replace(Cells(x, 3), " ", ""))
col2.Add Cells(x, 4).Value
Next x

[c:d].ClearContents
ason = [a65536].End(3).Row
For x = 1 To ason
For y = 1 To col1.Count
If Cells(x, 1) = col1 Then
Cells(x, 3) = Format(col1, "### ## ####")
Cells(x, 4) = col2
col1.Remove
col2.Remove
Exit For
End If
Next y
Next x

Set col1 = Nothing
Set col2 = Nothing
MsgBox Format(Now - z, "h:m:s")
End Sub[/vb:1:31a46015d6]

 

[Kemal Demir]

Sn.Fasuga Bu Örnegi İnceleyiniz.

 

[Kemal Demir]

Sn.Veyselemre'nin Çözümü De kullanıslı ve Güzel. :bravo:
Daha Profosyonelce Bir Çözüm.

 

[fazli77]

Sayın veyselemre,

makroyu excel çalışma sayfasına nasıl uygulayacağım hakkında ayrıntılı bilgi verirseniz sevinirim. Makroyu kopyalayıp modüle yapıştırıyorum fakat bir türlü çalıştıramıyorum. yardımınız bekler hayırlı işler dilerim.

 

[veyselemre]

sayın fasuga,
ekteki örneği inceleyin.

 

[fazli77]

Sayın veyselemre,
Ekte herhangi bir şey göremiyorum tekrar göndermeniz mümkünmü ..

 

[veyselemre]

Sayın veyselemre,
Ekte herhangi bir şey göremiyorum tekrar göndermeniz mümkünmü ..