Veri aktarma

[tasa1717]

Arkdaslar

2 sutuna girilmiş olan bilgi ilk önce karsılaştırma yapacak buldugu bilgileri sarı olacak bulamadıgı bilgi mavi olacak bulamadıgı mavi renkleri 2 sayfaya aktarcak makro yazılım lazım bu konuda Acilen yardımlarınızı bekliyorum

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

Örnek bir dosya eklemelisiniz.
Aksi durumda gereksiz mesajlaşmalara neden olacaktır.

. . .

 

[tasa1717]

örnek dosya böyle yaptım

Sub kod_bir()
aa = [a65536].End(3).Row
bb = [b65536].End(3).Row
Range("b1:B" & bb).Interior.Color = xlNone

For i = 1 To aa
For a = 1 To bb
If Cells(i, 1) = Cells(a, 2) Then
Cells(a, 2).Interior.Color = 65535

Else
End If
Next a
Next i
MsgBox " B İ T T İ "
End Sub

 

[tasa1717]

yapmış olduğumuz makro böyle sadece buna ekle yapılması lazım bu konu hakkında yardımlarınız bekliyorum

Sub kod_bir()
aa = [a65536].End(3).Row
bb = [b65536].End(3).Row
Range("b1:B" & bb).Interior.Color = xlNone

For i = 1 To aa
For a = 1 To bb
If Cells(i, 1) = Cells(a, 2) Then
Cells(a, 2).Interior.Color = 65535

Else
End If
Next a
Next i
MsgBox " B İ T T İ "
End Sub

 

[numan şamil]

Örnek dosya eklerseniz bence yardımcı olacak arkadaşlar bulunur mutlaka

 

[numan şamil]

örnek dosya böyle yaptım

Sub kod_bir()
aa = [a65536].End(3).Row
bb = [b65536].End(3).Row
Range("b1:B" & bb).Interior.Color = xlNone

For i = 1 To aa
For a = 1 To bb
If Cells(i, 1) = Cells(a, 2) Then
Cells(a, 2).Interior.Color = 65535

Else
End If
Next a
Next i
MsgBox " B İ T T İ "
End Sub

Sizden bir cevap çıkmadı fakat yinede bir çalışma yaptım
Kodlarınızı aşağıdaki gibi düzenleyip denermisiniz
Sub kod_bir()
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:A65000").ClearContents
aa = [A65536].End(3).Row
bb = [b65536].End(3).Row
Range("b1:B" & bb).Interior.Color = xlNone
For i = 1 To aa
For a = 1 To bb
If Cells(i, 1) = Cells(a, 2) Then
Cells(a, 2).Interior.Color = 65535
Else
End If
Next a
Next i
For c = 1 To bb
If Cells(c, 2).Interior.Color <> 65535 Then
s = s + 1
Sheets("Sayfa2").Range("a" & s) = Sheets("Sayfa1").Range("b" & c).Value
Application.CutCopyMode = False
End If
Next c
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

Ekli dosyayı incelermisiniz

 

[tasa1717]

arkdaslar ilginize teşekkür ederim

 

[numan şamil]

arkdaslar ilginize teşekkür ederim

Merhaba
Özel mesajla sorduğununuz soruların cevabları
1) Sayfa2 nin b sutununun 25. satırından itibaren verileri yapıştırmak için
Kodların kırmızı yerlerini
Sheets("Sayfa2").Range("a" & s) = Sheets("Sayfa1").Range("b" & c).Value

Aşağıdaki gibi değiştirirmisiniz
Sheets("Sayfa2").Range("b" & s + 24) = Sheets("Sayfa1").Range("b" & c).Value
2)Kodları şifrelemek için (2003 excelde)
Kod sayfasını açın
Tools/VBA Projet Properties/Protection tıklayın
Lock Projet for viewing kutucuğuna tik koyup
Şifre yerlerine şifrenizi girerek tamam deyiniz

 

[numan şamil]

Merhaba
Yanlış anlamayınız Lütfen
Özel mesajla soru sorma yerine sorunuzu buraya eklerseniz
Hem sorunuzu buraya yazmak zorunda kalmam hemde konuyu takip eden arkadaşlarımız için daha anlaşılır olacaktır
dikkati çekmek Özel için mesajla sadece .... konuya bakabilirmisiniz yeterli olacaktır
A sutunundaki verilerden B sutununda olmayanları (A sutununda Kalanları)
Tesbiti için
Ekli dosyayı inceleyebilirmisiniz
1) A ve B de olanları sarıya boyuyor
2) B de olup A da olmayanları sarıya boyuyor
3) A da olup B de olmayanlar boyamıyor

4) A da olup B de olmayanları Sayfa2 nin A sutununa
5) B de olup A da olmayanları Sayfa2 nin B sutununa
aktarıyor

 

[tasa1717]

Numan Bey

İlginize teşekkür ederim

 

[numan şamil]

Numan Bey

İlginize teşekkür ederim

Kolay gelsin

 

[tasa1717]

numan bey rakam olarak yapmak istediğimde böyle bir hata veriyor

 

[tasa1717]

ilk sayfa
1234 kamil
2345 2345
kamil mehmet
hasan halil
mehmet 1234
kemal veysi

2 sayfa ise soyle
hasan halil
kemal veysi

rakam olunca boyle bir hata veriyor konu hakkında yardımlarınız beklıyorum

 

[tasa1717]

benim karılastırma yapacaklarım sadece soyle olabılır ornek taner1234 veya sadece 1234 de olabılır bunun içinde ne yapmam lazım konu hakkında yardımlarınızı bekliyorum iyi günler

 

[numan şamil]

ilk sayfa
1234 kamil
2345 2345
kamil mehmet
hasan halil
mehmet 1234
kemal veysi

2 sayfa ise soyle
hasan halil
kemal veysi

rakam olunca boyle bir hata veriyor konu hakkında yardımlarınız beklıyorum

Merhaba
bunun neresi hatalı?
A sutununda olupda B sutununda olmayanlar hasan - kemal
B sutununda olupda A sutununda olmayanlar ise halil - veysi
Değilmi?
Ayrıca 14. mesajınızdan hiç bir şey anlamadım
Ekli dosyayı inceleyiniz