Satırdaki farklı değerleri sütuna formülle

[baygal]

merhabalar...
ekteki dosyada sayfa1 de ürün isimleri ve fiyatları var.sayfa2 de şu işlem yapılabilir mi ? sayfa1 deki ürünlerden fiyatı farklı olanları sayfa2 ye yazsın. ( fiyatı aynı olanlar 2. defa yasılmasın..

yardımcı olursanız çok sevinirim...

 

[Ömer]

Merhaba,

Eki inceleyiniz..

.

 

[baygal]

ellerine sağlık...çok teşekkür ederim

 

[baygal]

merhaba ,
formülde bir sorun çıktı.veri alanını genişletince ( 2-ile 100 arasıydı ben 2 ile 5000 olarak değiştirdim) formül hesaplamalarını çok uzun süre bekliyor.yapacak bişey yoktur sanırım ?

 

[Ömer]

Makro kullanmanız gerekir.

.

 

[baygal]

konu ile ilgili yardımlarınızı rica ediyorum lütfen....

 

[Ömer]

Module kopyalarak çalıştırınız..

Option Explicit
 
Sub Duzenle()
 
Dim i As Long, Sat As Long, s1 As Worksheet, s2 As Worksheet
Dim Urun As String, Fiyat As Double, Kol As Integer
 
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
 
Application.ScreenUpdating = False
s1.Select
i = [A65536].End(3).Row
Range("A2:B" & i).Sort Key1:=[A1], Key2:=[B1]
s2.Range("A2:IV" & s2.[A65536].End(3).Row + 1).ClearContents
Sat = 1
For i = 2 To [A65536].End(3).Row
    If Cells(i, "A") <> Urun Then
        Sat = Sat + 1
        s2.Cells(Sat, "A") = Cells(i, "A")
        Urun = Cells(i, "A")
        s2.Cells(Sat, 2) = Cells(i, "B")
        Fiyat = Cells(i, "B")
    End If
    If Fiyat <> Cells(i, "B") Then
        Fiyat = Cells(i, "B")
        Kol = s2.Range("IV" & Sat).End(1).Column + 1
        s2.Cells(Sat, Kol) = Fiyat
    End If
Next i
s2.Select
Application.ScreenUpdating = False
 
End Sub

.

 

[tahsinanarat]

ömer hocam elinize sağlık çok güzel bir çalışma olmuş.

 

[Ömer]

Teşekkür ederim, faydalı olduysa ne mutlu..

 

[baygal]

Ömer hocam kodu test ettim...şöyle sorun çıkarıyor.örneği ekledim. A 2 , ARMUT tada ilk fiyat 2 , ARMUT un 2 sini getirmiyor. B de 2 rakamı var alt satırında C ye de 2 rakamı verdim C yi boş getiriyor...Bir üstteki ürünle aynı rakamı paylaşıyorsa onu tanımıyor gibi bişe var sanki...

 

[Ömer]

#7 nolu mesajdaki kodu güncelledim, tekrar denermisiniz..

.

 

[baygal]

teşekkürler elinize sağlık...çok makbule geçti