KarŞilaŞtirma

[Cezam]

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]

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

 

[Cezam]

Cok TeŞekkÜr Ederİm

 

[sende1]

ya kusura bakmayın ben bişe sormak istiyorum. ben yeni yeni bilgisayar denen aleti öğreniyorumda burada istediğim bir çok şeyi bulabiliyorum ama bazen kod yazılı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...

 

[zafer]

Merhaba

Aşağıdaki linkleri inceleyiniz.


Kod Yazmayı Öğreniyorum
Excelde Makro (Kaydetmek, Düzenlemek (Macro))1