sütündan sütüna kopyalama

[igultekin2000]

iyi akşamlar;
örnekte de izah edildiği gibi bir sütundaki kodların başka sütuna şartlı aktarılması
B sütunundaki 120 - 340 - 320 - 159 - 136 -336 ile başlayan kodların G sütununa aktarılması, normalde kod 120 01 0001 gibi ilave uzantısı da var,

http://s8.dosya.tc/server2/8qvqpr/DENEME.xls.html

 

[veyselemre]

Sub test()
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        Select Case Left(Cells(i, 2).Value, 3)
            Case 120, 340, 320, 159, 336, 136
                Cells(i, "G").Value = Cells(i, 2).Value
            Case Else
                Cells(i, "G").Value = ""
        End Select
    Next i
End Sub

 

[igultekin2000]

Sub test()
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        Select Case Left(Cells(i, 2).Value, 3)
            Case 120, 340, 320, 159, 336, 136
                Cells(i, "G").Value = Cells(i, 2).Value
            Case Else
                Cells(i, "G").Value = ""
        End Select
    Next i
End Sub

Evet çok pratiksiniz, yeni kod ilave ederek farklı listeleme de yapılıyor.
işlerimi bayağı kolaylaştıracak.

 

[igultekin2000]

aynı sayfada dört makro çalıştırmak

bu işlemden sonra iki makro daha çalıştırmam gerekiyor, bunların ayrı ayrı modüllere mi yapıştırmak lazım. çalışması gereken çalışma sayfasına tek tek yapıştırarak çalıştırıyorum. modülle çalıştıramadım.

 

[veyselemre]

bu işlemden sonra iki makro daha çalıştırmam gerekiyor, bunların ayrı ayrı modüllere mi yapıştırmak lazım. çalışması gereken çalışma sayfasına tek tek yapıştırarak çalıştırıyorum. modülle çalıştıramadım.

Modul farketmez, kodları incelemek gerekir. Sayfanın kod sayfasına yazdığınız kodlar (istisnalar hariç) sadece sayfa üzerinde çalışacağı düşünülerek hazırlanır.