KarŞilaŞtirma

Katılım
1 Kasım 2007
Mesajlar
5
Excel Vers. ve Dili
2003
Merhabalar

Yenİ BaŞlayan Bİrİ Olarak Bİr Yardim Rİca EdeceĞİm...

Ek'te GÖnderdİĞİm Dosya Da Sayfa 2 Dekİ Cep Telefonu Numarasina GÖre Sayfa 1 De Arama Yapilarak EĞer Cep Telefonu Numarasi Bulunabİlİrse İlgİlİ Bİlgİlerİn ÖrneĞİn Fİrma İsmİ Ve MÜŞterİ İsmİnİn Sayfa 2 De Bulunan Cep Telefonunun OlduĞu Satirda İlgİlİ Alana YapiŞtirilmasi Şeklİnde Bİr Yardima İhtİyacim Var...

Yardimci Olabİlİrsİnİz Umarim...

TeŞekkÜrler...
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Kod:
Sub aktar()
Dim b
b = 0
For Each secim In Worksheets("Sayfa1").Range("C:C")
If secim <> "" Then
    b = b + 1
    Worksheets("Sayfa2").Cells(b, 3) = secim
    Worksheets("Sayfa2").Cells(b, 5) = secim.Offset(0, -1)
    Worksheets("Sayfa2").Cells(b, 6) = secim.Offset(0, 1)
End If
Next
MsgBox "Veriler aktarıldı"
End Sub
 
Katılım
31 Aralık 2007
Mesajlar
2
Excel Vers. ve Dili
ofice 2000 türkçe
ya kusura bakmay&#305;n ben bi&#351;e sormak istiyorum. ben yeni yeni bilgisayar denen aleti &#246;&#287;reniyorumda burada istedi&#287;im bir &#231;ok &#351;eyi bulabiliyorum ama bazen kod yaz&#305;l&#305;yo
Kod:

(Sub aktar() Dim b b = 0 For Each secim In Worksheets("Sayfa1").Range("C:C") If secim <> "" Then b = b + 1 Worksheets("Sayfa2").Cells(b, 3) = secim Worksheets("Sayfa2").Cells(b, 5) = secim.Offset(0, -1) Worksheets("Sayfa2").Cells(b, 6) = secim.Offset(0, 1) End f Next MsgBox "Veriler aktar&#305;ld&#305;" End Sub)

bunun gibi

bunu nereye yazacam da kullan&#305;labilir olacak...ben bilmiyorum yard&#305;mc&#305; olun l&#252;tfenn...te&#351;ekk&#252;rler...
 
Üst