karşılaştırma

[alanya65]

ekteki dosyadaki kodları yazamadım yardım edermisiniz

 

[meslan]

merhaba.

Private Sub CommandButton1_Click()
For x = 7 To Sayfa2.[c65536].End(3).Row
If WorksheetFunction.CountIf([C:C], Sayfa2.Cells(x, 3)) < 1 Then
son = [c65536].End(3).Row + 1
Range("C" & son & ":g" & son).Value = Sayfa2.Range("c" & x & ":g" & x).Value
End If
Next
End Sub

 

[alanya65]

verdiğiniz kodlar için teşekkürler fakat olmadı

 

[Orion1]

verdiğiniz kodlar için teşekkürler fakat olmadı

Sn meslanın verdiği kodlar gayet güzel çalışıyor.Denedim çalıştı.Sanırım problem sizde.

 

[alanya65]

ben yanlş bilgi verdim sanırım
ekteki dosyaya bakarmısınız

 

[meslan]

Merhaba
arkadaşım dosyayı incelyiniz. İstedğiniz bu değil mi. Değilse kriterleri tam olarak yazarsan yardımcı olurum. Benim sorunuzdan anladığım bu.

 

[alanya65]

merhaba
mestan, üstad
siz satırı komle getiriyorsunuz
ben satırın kırmızı ile işaretli hücreleri oklagösterdiğim yerlere almak istiyorum diğer değerlerin gelmesiniistemeiyorum
ilgine teşekkür ederim

 

[alanya65]

pardon nick inizi yanlış yazdım.

 

[meslan]

İstediğiniz gibi düzenledim. Tekrar deneyiniz.

 

[alanya65]

merhaba
meslan üstan
ilgine teşekkür ederim.
istediğimgibiolmuş