Ç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....
[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]
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.