B sütunundaki firma kodlarını A sütununa yazmak

[Leoncio]

Merhaba;

Ekte örneğini iliştirdiğim dosyada (Yaklaşık 5000 satırdan oluşuyor) B sütununda bulunan firma kod numaralarını A sütununa nasıl yazabilirim.

Örnekte Sayfa1 verilerimi Sayfa2 şekline çevirmek istiyorum. (Makro, formül olabilir)

 

[Merhum İdris SERDAR]

Soryu yanlış algılamışım. Sildim.

.

 

[veyselemre]

Sub Dene()
    Set area = Columns("C").SpecialCells(xlCellTypeConstants, 23).Areas
    For x = 2 To area.Count
        With area(x)
            .Offset(, -2).Value = .Offset(-1, -1)(1).Value
        End With
    Next
    Set area = Nothing
End Sub

 

[Leoncio]

Sayın Yurttas;
Sayfa2'yi örnek amacıyla oluşturdum. Sayfa1 Sayfa2 şekline gelecek manasında yazmıştım.
Sayın Veyselemre'nin kodları tam istediğim tarzda.

Ellerinize sağlık. Teşekkürler arkadaşlar.

 

[Leoncio]

Sub Dene()
    Set area = Columns("C").SpecialCells(xlCellTypeConstants, 23).Areas
    For x = 2 To area.Count
        With area(x)
            .Offset(, -2).Value = .Offset(-1, -1)(1).Value
        End With
    Next
    Set area = Nothing
End Sub

Sayın Veyselemre;

Set area = Columns("C").SpecialCells(xlCellTypeConstants, 23).Areas
satırındaki 23 esprisi nedir acaba.

Eklediğim örnek dosyada firma isimleri B sütununda ama asıl yapmak istediğim dosyada firma isimleri E sütununda. Buna göre kodları nasıl değiştirmeliyim?

 

[veyselemre]

23 sayısını makro kaydetten oluşturuyor. Çıkan Düzen>Git>Özel>Sabitleri seçtiğimiz zaman aşağıda aktif olan Sayılar, Metin, Mantıksal, Hatalar gibi parametrelerden hepsinin seçili olduğu durumda oluşuyor. Aslında kullanılmasa da aynı sonucu veriyor.

Örneğin seçmesini istediğimiz alanda sayıların seçilmesini istemiyorsak 22 paremetresini girmek gerekiyor.

Makro kaydet te bu alternatifleri görebilirsiniz. Bunları öğrenmek için uğraşmaya gerek yok Excelin güzel özelliği makro kaydet sırasında ihtiyacınız olan parametrelere göre kodları kendi oluşturuyor, bu oluşturulan kodlardan istediğiniz kısımları alır kullanırsınız.

Dosyanızdaki farklılık sadece firma isimleri E sütununda ise aşağıdaki gibi deneyebilirsiniz.

Sub Dene()
    Set area = Columns("C").SpecialCells(xlCellTypeConstants).Areas
    For x = 2 To area.Count
        With area(x)
            .Offset(, -2).Value = .Offset(-1, 2)(1).Value
        End With
    Next
    Set area = Nothing
End Sub

 

[Leoncio]

Teşekkürler.