AYNI DEĞERLERİN KARŞISINDAKİ FARKLI DEĞERLERİ AKTARMA

[kubra.karadas]

Merhaba,

Dosyam ekte .. Sürekli çalışırken bu sorunla karşılaşmaktayım bunun mantığı nedir yardımcı olur musunuz ??

İKİ SUTUNUMDA AYNI DEĞERLERE AİT KARŞILARINDA FARKLI DEĞERLERİM MEVCUT. BEN BAŞKA SAYFADA BU AYNI DEĞERLERİN KARŞISINDA FARKLI DEĞERLERİMİ NASIL GETİRİRİM ???

 

[kubra.karadas]

Kimse yardım etmeyecek mii?

 

[çıtır]

Sorunuz tam anlaşılmıyor.Dosyanızı örneklendirerek yenilerseniz gereksiz cevaplar önlenmiş olur.

 

[kubra.karadas]

Yeni dosya ekleyeceğim

 

[kubra.karadas]

Açıklamam dosya içindedir.

 

[çıtır]

Dosyanız.

 

[yanginci34]

Denermisiniz.

 

[Ömer BARAN]

Merhaba, Sayın @yanginci34 .
Sayfa1'deki yapının, aynı şekilde Sayfa2'de de olacağı düşünülürse; kullandığınız kod aşağıdaki şekilde de aynı sonucu verir.

Sub KOPYALA_SIRALA()
    son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
    Sheets("Sayfa2").[A:C].Clear
    Sheets("Sayfa1").Range("A1:C" & son).Copy Sheets("Sayfa2").[A1]
    Range("A2:C" & son).Sort [C1], 1
End Sub

 

[yanginci34]

Merhaba, Sayın @yanginci34 .
Sayfa1'deki yapının, aynı şekilde Sayfa2'de de olacağı düşünülürse; kullandığınız kod aşağıdaki şekilde de aynı sonucu verir.

Sub KOPYALA_SIRALA()
son = Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
Sheets("Sayfa2").[A:C].Clear
Sheets("Sayfa1").Range("A1:C" & son).Copy Sheets("Sayfa2").[A1]
Range("A2:C" & son).Sort [C1], 1
End Sub

Hocam ancak okuyabildim kusuruma bakmayın. Kodu inceledim sizlerin sayesinde birşeyler öğreniyorum çok teşekkür ederim.

GM 8 d cihazımdan Tapatalk kullanılarak gönderildi