DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
ym54' Alıntı:iki sütundaki sayilari karşılaştırıp başka bir sütuna ekleyen excel çalışması istiyorum. :?
:shock:ym54' Alıntı:en kısa zamanda cevaplarınızı bekliyorum.
Teşekkürler...
1 nisan da kayıt olmuş :arkadas: (1 nisan şakası) :lol:furkan' Alıntı:bu arkadaş buradaki kişileri kendi çalışanı mı zannediyor?
syn ym 54..ym54' Alıntı:ben bu programı Allah(cc) rızası için istiyorum.
isteyen yapar, isteyen yapmaz.
hem bu site yardımlaşma amaçlı bir site değil mi?
siz bugün benim istediğim bir programı yaparsınız. yarın öbür günde ben eğer bilgim varsa sizin istediğiniz bir programı yaparım.
saygılarımla....
istemeyerekte olsa bende hata yaptım. kusura bamayın arkadaşlarym54' Alıntı:eğer bir arkadaşımızı kırdıysam veya siteye zarar vermişsem özür diliyorum.
Sayın Leventm,ym54' Alıntı:LEVENTM'e teşekür ediyorum.
Ayrıca bana yardımcı oldukları için diğer arkadaşlarada teşekkür ediyorum.
Sayın Leventm,leventm' Alıntı:Kodu aşağıdaki gibi değiştirerek deneyin.
[vb:1:f5f2646646]Sub listele()
[c2:c65536].ClearContents
For a = 2 To WorksheetFunction.CountA([a2:a65536]) + 1
b = WorksheetFunction.CountIf([b2:b65536], Cells(a, 1))
If b > 0 Then
c = c + 1
Cells(c + 1, 3) = Cells(a, 1).Value
End If
Next a
End Sub[/vb:1:f5f2646646]