Her tip ve tip adından 1 tane listeye alınsın,

[sensizsoldum]

Merhaba,
Örnek dosya da gelen kumaş listesinde bulunan tip kodu ve tip adı yani B ve C sütunlarında yazan verilerden tip listesi sayfasına her tip ve tip adından 1 tane olacak şekilde liste olması gerekiyor. Manuel olarak ben bir tane ekleme yaptım bunu otomatik ve hızlı bir biçimde buton kullanmadan bir şekilde nasıl yapabiliriz.

 

[Testereci]

Eğersay ve düşeyara işlevli alternatif.

 

[sensizsoldum]

Merhaba,
Örnek çalışmayı kontrol edebilir misiniz formül ya da makro ya rastlayamadım. Sanırım bir sorun var.

 

[Testereci]

Cidden enteresan formüller yok olmuş. Keşke nasıl olduğunu anlayabilsem. İki sayfa da otomatik özel değerleri yapıştır komutu verilmiş hale gelmiş...
Ekledikten sonra kontrol edeceğim. Yine aynı şey gerçekleşirse 2007 formatında eklemeyi denerim.

 

[sensizsoldum]

Merhaba,
Örnek dosyayı inceledim, fakat formüller yeni girilen veriyi çekmiyor.

 

[Testereci]

Formüllerdeki sabit alanları 1700 satıra kadar genişlettim. Yetmezse gerçek dosyanızdaki satır sayısını belirtirseniz ona göre düzeltebilirim. İki dosyanın farkını incelediğinizde umarım siz de yapabilirsiniz

 

[Ziynettin]

Merhaba, VBA alternatif;
Aşağıdaki kodu TİP LİSTESİ sayfası kodbölümüne koplayıp yapıştırın.

Private Sub Worksheet_Activate()
Dim i, son, sat As Long
With Sheets("Gelen Kumaş")
Range("A2:B" & Range("A" & Rows.Count).End(3).Row + 1).ClearContents
son = .Range("A" & Rows.Count).End(3).Row
sat = 3
For i = 3 To son
If WorksheetFunction.CountIf(.Range("B2:B" & i), .Cells(i, 2)) = 1 Then
Cells(sat, 1) = .Cells(i, 2)
Cells(sat, 2) = .Cells(i, 3)
sat = sat + 1
End If
Next i
End With
End Sub

 

[sensizsoldum]

Merhaba,
Sayın Tasmed Verdiğiniz kod güzel çalışıyor fakat bu çalışma için hem yavaş hem çalışma olayı farklı, bana girilen veriyi o sayfaya otomatik işlemesi gerekmekte, sayfaya girişte olursa güncel Listeye formül atıp çektiremem bu durumu yapmak için sayfaya her defasında giriş yapmak durumunda kalabilirim.
Sayın Testere, Formül güzel sıra numarası vermesi de çok güzel, Bu sıra numara vermesi sayfa 1 içinde geçerli olsa, farklı bir güzellikle karşılaşmış olabilirim. Bu arada veri baya baya yoğunlaşacaktır. 10 binlerin üstüne çıkacaktır ve formül kabarması olacaktır. Yavaşlama vs. şeyler falan. o zaman ne yapacağız.

 

[Korhan Ayhan]

Merhaba,

GELEN KUMAŞ isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("B3:C" & Rows.Count)) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Sheets("TİP LİSTESİ").Range("A2:B" & Rows.Count).Clear
    Range("B2:C65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("TİP LİSTESİ").Range("A2"), Unique:=True
    Sheets("TİP LİSTESİ").Range("A2:B" & Sheets("TİP LİSTESİ").Range("A" & Rows.Count).End(3).Row).Borders.LineStyle = 1
Son:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[sensizsoldum]

Eyvallah Hocam,
Farkında, Tarzında kesinlikle Mükemmel ötesi, Fazla yorum yapmayacağım

Emeği geçen herkese ayrı ayrı teşekkür eder, saygılarımı Sunarım.

İyi akşamlar dilerim.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Sayın Testereci'nin
Çalışmasında

Sayfa4 Teki Gibi Verileri
Teke Düşürerek İşlemi Yapıyor
Sayfa4 Te Yapılan işlemi
Sayfa3te Sayfa Seçerek Yapmak İstiyorum
Sayfa3 A Sutununda
Seçilen Sayfanın A Sutunundaki Kadar
Sayılanı Vermesi Gerekir
Bunu Nasıl Yapabilirim.

 

[turist]

Merhaba
İyi Çalışmalar
Sayın Testereci'nin
Çalışmasında

Sayfa4 Teki Gibi Verileri
Teke Düşürerek İşlemi Yapıyor
Sayfa4 Te Yapılan işlemi
Sayfa3te Sayfa Seçerek Yapmak İstiyorum
Sayfa3 A Sutununda
Seçilen Sayfanın A Sutunundaki Kadar
Sayılanı Vermesi Gerekir
Bunu Nasıl Yapabilirim.

Ekli dosyayı inceleyiniz.