• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Yinelenenleri kaldırma

D

discoice

Katılım
15 Ağustos 2013
Mesajlar
11
Excel Vers. ve Dili
excel 2010
Merhaba değerli excel uzmanları

Makaron listesi sheetinden D ve H sutunlarını kopyalayıp, sarı etiket sheetine atıp yinelenleri otomatik olarak kaldıracak.
Aralarda boş hücrelerde var bunları otomatik yok sayacaktır.
bu işlemi komut düğmesiyle yapmak istiyorum.
yardımlarınız için şimdiden teşekkür ederim
 
yapmak istediklerinizi sırası ile not alın.
makro kaydediciyi çalıştırın.
yazdığınız sırada işlemleri yapın.
kaydediciyi durdurun.
VBE'de excel'in oluşturduğu kodu buraya kopyalayın.
üzerinde çalışalım.
 
Merhaba mancubus;
Kod: 
Sub DENEME()
'
' DENEME Makro
'

'
    Columns("D:D").Select
    Selection.Copy
    Sheets("CİHAZ ETİKETİ").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A3").Select
    Sheets("MAKORON LİSTESİ").Select
    Range("H1:H2077").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("CİHAZ ETİKETİ").Select
    Range("A10").Select
    ActiveSheet.Paste
    Columns("A:A").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$A$5876").RemoveDuplicates Columns:=1, Header:=xlNo
    ActiveWorkbook.Worksheets("CİHAZ ETİKETİ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("CİHAZ ETİKETİ").Sort.SortFields.Add Key:=Range( _
        "A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("CİHAZ ETİKETİ").Sort
        .SetRange Range("A1:A5876")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

makronun kayıt ettiği yukardaki şekildeki gibidir.
bunu komut düğmesine aktarınca * Range("H1:H2077").Select * sarı şekilde hata veriyor.
bunu düzeltmek için koddaki değişiklik hakkında bilgilendirirseniz sevinirim.
Dosya ekleyemiyorum kusura bakmayın.
 
Develepor (Geliştirici) sekmesinde Activex Control'lerden buton seçin.
üzerine çift tıklayarak kod penceresini açın.

Kod: 
Private Sub CommandButton1_Click()

End Sub
otomatik olarak eklenecektir. bu iki satırın arasına aşağıdaki kodu kopyalayın.

Kod: 
    With Worksheets("MAKORON LİSTESİ")
        If .AutoFilterMode Then .AutoFilterMode = False
        ss = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        .Range("D1:D" & ss).Copy Destination:=Worksheets("CİHAZ ETİKETİ").Range("A1")
        .Range("H1:H" & ss).Copy Destination:=Worksheets("CİHAZ ETİKETİ").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End With
    
    With Worksheets("CİHAZ ETİKETİ")
        .Columns(1).SpecialCells(4).EntireRow.Delete
        .Cells(1).CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlNo
        .Cells(1).Sort Key1:=Worksheets(e).Cells(1), Order1:=xlAscending, Header:=xlNo
    End With


VBA'de kayıt makrosu yaparken onlarca defa beliren (çünkü kaydedici sayfa üzerinde yaptığımız her işlemi kayıt eder; bir hücreye tıklamak onu seçmek "select" demektir) Select metoduna gerçek hayatta belki %1 ihtiyaç duyarız. kullanmaktan kaçının.
 
Merhaba Mancubus;

Kodları aynı şekilde kopyaladım ve butona bastığım zaman işlemi gerçekleştiriyor.
Yalnız cihaz etiketi sheetine eklenen verilerin daha sonradan A'dan Z'ye sıralanması lazım bu işlemi yapmamaktadır ve İndis aralığın dışında (Subscript out of range ) hatası veriyor.
Hataya baktığım zaman
Kod: 
.Cells(1).Sort Key1:=Worksheets(e).Cells(1), Order1:=xlAscending, Header:=xlNo
hatası veriyor.
 
yazmaya üşenip açık dosyadaki hazır koddan kopyalayınca böyle hatalar olabiliyor. :)

Worksheets(e) kısmını silmeyi atlamışım.

doğrusu:
Kod: 
.Cells(1).Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
hatası veriyor.[/QUOTE]
 
Merhaba Mancubus;
Elinize sağlık çok teşekkür ederim yardımlarınızdan dolayı

Son bir sorum daha olacak ;

Biz bunu şu şekilde revize edebilir miyiz;
makaron listesi sheetinde D ve H sütunları kopyalayıp cihaz etiketi sheetine atıcak ve yinelenleri kaldıracak , bu işlemden sonra kalan verileri tekrardan kopyalayıp cihaz etiketi sheeti içerisinde A'dan Z'ye sıralama yapacak. Yani kalan verilerden 2 adet olacak şekilde yapabilir miyiz?
 
bu işlemden sonra kalan verileri tekrardan kopyalayıp
Genişletmek için tıkla ...
nereye yapıştırıyor?

Kod: 
cihaz etiketi sheeti içerisinde A'dan Z'ye sıralama yapacak.
neyi sıralıyor?
 
mancubus' Alıntı:
nereye yapıştırıyor?

Kod: 
cihaz etiketi sheeti içerisinde A'dan Z'ye sıralama yapacak.
neyi sıralıyor?
Genişletmek için tıkla ...

işlemleri yaptıktan sonra cihaz etiketi sheetindeki veriler tekrardan kopyalayıp aynı yere yani cihaz etiketi sheetine tekrardan kopyalayacak ve A'dan Z'ye sıralama yapacak.
 
Son düzenleme:
cihaz etiketinin 15.000inci sütununda, 1.000.000uncu satırına kopyalasak olur mu?
 
sayın discoice.

ihtiyacınızı tam olarak tarif etmediğinize vurgu yapmak istedim sadece.

siz dosyanızı ve kafanızdakileri biliyorsunuz. biz bilmiyoruz. aklınızdan geçenleri okumak gibi bir yeteneğimiz de mevcut değil.

dolayısı ile istenenleri çok açık bir şekilde, tek tek tarif etmeniz gerekiyor.
 
"MAKORON LİSTESİ" listesi sayfasındaki 1. satırdan başlayarak bütün hücreleri "CİHAZ ETİKETİ" sayfasına A1 hücresinden başlayarak kopyaladık.

"CİHAZ ETİKETİ" sayfasında verilerin kopyalandığı A sütununda, boş hücreler var ise bunların satırlarını sildik.

alfebetik sıraladık.

tekrar edenleri tek veriye indirdik.




bundan sonra ne istiyorsunuz. bu yeni oluşan tekrarsız veriyi MAKARON'a geri kopyalamak mı? öyle ise A1 hücresine mi?
 
mancubus' Alıntı:
"MAKORON LİSTESİ" listesi sayfasındaki 1. satırdan başlayarak bütün hücreleri "CİHAZ ETİKETİ" sayfasına A1 hücresinden başlayarak kopyaladık.

"CİHAZ ETİKETİ" sayfasında verilerin kopyalandığı A sütununda, boş hücreler var ise bunların satırlarını sildik.

alfebetik sıraladık.

tekrar edenleri tek veriye indirdik.




bundan sonra ne istiyorsunuz. bu yeni oluşan tekrarsız veriyi MAKARON'a geri kopyalamak mı? öyle ise A1 hücresine mi?
Genişletmek için tıkla ...

Merhaba Mancubus;
bu yaptığımız işlemlerden sonra tekrardan tek olan verileri kopyalayıp yine aynı sheete (yani cihaz etiketi sheetine ) kopyalayıp sonradan alfabetik sıralama yapacak.
 
xxxxx
mancubus' Alıntı:
"MAKORON LİSTESİ" listesi sayfasındaki 1. satırdan başlayarak bütün hücreleri "CİHAZ ETİKETİ" sayfasına A1 hücresinden başlayarak kopyaladık.

"CİHAZ ETİKETİ" sayfasında verilerin kopyalandığı A sütununda, boş hücreler var ise bunların satırlarını sildik.

alfebetik sıraladık.

tekrar edenleri tek veriye indirdik.




bundan sonra ne istiyorsunuz. bu yeni oluşan tekrarsız veriyi MAKARON'a geri kopyalamak mı? öyle ise A1 hücresine mi?
Genişletmek için tıkla ...
xxxxx
 
Merhaba Mancubus

kusura bakmayın ifade edemedim.
Evet A1 hücreside olan verileri tekrardan A1 hücresine kopyalanacak ve alfabetik sıralama yapılacak.

Olay akışını kısaca açıklayım;

MAKORON LİSTESİ" listesi sayfasındaki 1. satırdan başlayarak bütün hücreleri "CİHAZ ETİKETİ" sayfasına A1 hücresinden başlayarak kopyaladık.

"CİHAZ ETİKETİ" sayfasında verilerin kopyalandığı A sütununda, boş hücreler var ise bunların satırlarını sildik.
Alfebetik sıraladık.
Tekrar edenleri tek veriye indirdik.

"CİHAZ ETİKETİ" sayfasındaki verileri tekrardan kopyalayıp A1 hücresinin 250.satırana kopyalayıp sonradan alfabetik sıralama yapacak.
 
sayın discoise, gözünü seveyim, veriler zaten MAKARON'un D ve H sütunlarından CİHAZ ETİKETİ'nin A sütununa kopyalandı.

CİHAZ ETİKETİ'nin A sütununu tekrardan CİHAZ ETİKETİ'nin A sütununa kopyalamak 250'den sonrasını silmek ne demek.


sitede bazı üyeler(!) var. kolpa soru sorup, sürekli taleplerini değiştirerek güya cevap vermeye çalışanla dalga geçip eğleniyorlar.

umarım o gruptan değilsindir.
 
mancubus' Alıntı:
sayın discoise, gözünü seveyim, veriler zaten MAKARON'un D ve H sütunlarından CİHAZ ETİKETİ'nin A sütununa kopyalandı.

CİHAZ ETİKETİ'nin A sütununu tekrardan CİHAZ ETİKETİ'nin A sütununa kopyalamak 250'den sonrasını silmek ne demek.


sitede bazı üyeler(!) var. kolpa soru sorup, sürekli taleplerini değiştirerek güya cevap vermeye çalışanla dalga geçip eğleniyorlar.
umarım o gruptan değilsindir.
Genişletmek için tıkla ...

merhaba mancubus

Estagrullah ne dalgası. sorumuzu biz size sorduk sizde bizden yardımlarınızı esirgemediniz. Size ne kadar teşekkür etsem azdır. Elinize sağlık

Excel dosyası şuan için işimi görmektedir.
Bilginizi ve vaktinizi bana ayırdığınız için çok teşkkür ederim.
 
bir kaç defa başıma geldi maalesef. saf saf cevap bulmaya çalışırken geç te olsa ayıktım. :)

konunun gidişatı o konulara benzeyince günahını aldım demek ki. kusura bakma.



kalem kalem, sayfa adı ve hücre adresleri belirtmek sureti ile ihtiyacı yineleyebilirseniz daha etkin bir şey üzerinde çalışırım.
 
mancubus' Alıntı:
bir kaç defa başıma geldi maalesef. saf saf cevap bulmaya çalışırken geç te olsa ayıktım. :)

konunun gidişatı o konulara benzeyince günahını aldım demek ki. kusura bakma.



kalem kalem, sayfa adı ve hücre adresleri belirtmek sureti ile ihtiyacı yineleyebilirseniz daha etkin bir şey üzerinde çalışırım.
Genişletmek için tıkla ...

MERHABA MANCUBUS
İlgi ve alakanızdan dolayı ve vermiş olduğunuz bilgilerden dolayı teşekkür ederim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst