MAKRO VERİ SIRALAMA BELİRLİ VERİ DİZİSİ İÇİNDE

[sahin.gungor]

Merhabalar

A2 hücresinden başlayıp G hücre aralığında verilerim var. Bu veri aralığında A hücresinde değer değiştiğinde bir boşluk ekliyorum sorum su eklenen her bir boşluktan sonra veri dizi içinde kalan verileri g sütünuna göre veri dizi içinde kalan verileri sıralasın.

Teşekkürler

 

[sahin.gungor]

Konu ile ilgili desteğinizi rica ederim.
Teşekkürler

 

[volki_112]

Merhabalar

A2 hücresinden başlayıp G hücre aralığında verilerim var. Bu veri aralığında A hücresinde değer değiştiğinde bir boşluk ekliyorum sorum su eklenen her bir boşluktan sonra veri dizi içinde kalan verileri g sütünuna göre veri dizi içinde kalan verileri sıralasın.

Teşekkürler

Hiç bir şey anlamadım. Türkçeyi doğru kullanarak daha anlaşılır yazarsanız daha iyi olur.

 

[sahin.gungor]

örnek vermek gerekirse

Aşağıdaki tabloda gördüğünüzde üzere a sütünundaki artarda sıralanan verileri değişince bir boşluk ekleniyor. boş satırdan sonra ki verileri sıralayıp tekrar bir sonraki veri aralığını sıralasın sonra boşluktan sonraki veri aralığını sıralasın taki sıralanacak veri bitene kadaqr

A B C
A D E
A F G

B T P
B S I

 

[sahin.gungor]

C sütununa göre sıralanacak gibi düşünebilirsiniz.

 

[sahin.gungor]

yardımcı olabilecek varmıdır ?

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyiniz.

Sub TEST()
    Dim IlkSatir As Long
    Dim SonSatir As Long
    IlkSatir = 2
    Application.ScreenUpdating = False
    Do
        SonSatir = Cells(IlkSatir, "C").End(xlDown).Row
        With ActiveSheet.Sort
            .SortFields.Clear
            .SortFields.Add2 Key:=Range("C" & IlkSatir & ":C" & SonSatir), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range("A" & IlkSatir & ":C" & SonSatir)
            .Header = xlGuess
            .Apply
        End With
        IlkSatir = Cells(SonSatir, "C").End(xlDown).Row
    Loop Until IlkSatir = Rows.Count
    Application.ScreenUpdating = True
End Sub

 

[sahin.gungor]

birde eğerhata işlevini makro ile nasıl uyazabilirim

 

[Muzaffer Ali]

birde eğerhata işlevini makro ile nasıl uyazabilirim

Tam olarak ne yapmak istediğinizi söylerseniz ona göre bir çözüm bulunabilir.

 

[sahin.gungor]

Makro ile düşeyara yaptım ^yok olarak gelen hatalar var bunlar yazmasın eğer hata olursa boş gelsin istiyorum ( G sutunu için )

 

[volki_112]

Makro ile düşeyara yaptım ^yok olarak gelen hatalar var bunlar yazmasın eğer hata olursa boş gelsin istiyorum

düşeyara makrosunu paylaşır mısınız

 

[sahin.gungor]

Private Sub CommandButton1_Click()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Üretim Emri Sayfası - SubAssemb")

Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("g2").Value = "=VLOOKUP(C2,'Database'!F:I,4,0)"

sh.Range("g2:g" & lr).FillDown
sh.Range("g2:g" & lr).Copy
sh.Range("g2:g" & lr).PasteSpecial xlPasteValues

Application.CutCopyMode = False
end sub

 

[volki_112]

Bu şekilde yazın.

Private Sub CommandButton1_Click()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Üretim Emri Sayfası - SubAssemb")
Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("g2").Value = "=IFERROR(VLOOKUP(C2,'Database'!F:I,4,0);"")"

sh.Range("g2:g" & lr).FillDown
sh.Range("g2:g" & lr).Copy
sh.Range("g2:g" & lr).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End sub

 

[sahin.gungor]

if error eklediğimde düşeyarayıda yapmıyor ama

İSTEDİĞİM DÜŞEYARA YAĞTIGIMDA YOK OLARAK HATA VEREN HÜCRELER VAR BUNLAR GELMESİN BUNUN YERİNE BOŞ YAZSIN

 

[sahin.gungor]

Bu şekilde yazın.

Private Sub CommandButton1_Click()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Üretim Emri Sayfası - SubAssemb")
Dim lr As Integer
lr = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

sh.Range("g2").Value = "=IFERROR(VLOOKUP(C2,'Database'!F:I,4,0);"")"

sh.Range("g2:g" & lr).FillDown
sh.Range("g2:g" & lr).Copy
sh.Range("g2:g" & lr).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End sub

Merhaba if error çalışmadı ama yok yazdıgı içinmi çalışmıyor acaba

 

[volki_112]

Merhaba if error çalışmadı ama yok yazdıgı içinmi çalışmıyor acaba

if error satırını bu şekilde değiştirir misin deneyip dönüş yapınız. satırı kopyalayıp kendi satırında iferror yerine yapıştır

sh.Range("g2").Formula = "=IFERROR(VLOOKUP(C2,'Database'!F:I,4,0),"""")"

 

[sahin.gungor]

Merhaba.
Aşağıdaki kodu deneyiniz.

Sub TEST()
    Dim IlkSatir As Long
    Dim SonSatir As Long
    IlkSatir = 2
    Application.ScreenUpdating = False
    Do
        SonSatir = Cells(IlkSatir, "C").End(xlDown).Row
        With ActiveSheet.Sort
            .SortFields.Clear
            .SortFields.Add2 Key:=Range("C" & IlkSatir & ":C" & SonSatir), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Range("A" & IlkSatir & ":C" & SonSatir)
            .Header = xlGuess
            .Apply
        End With
        IlkSatir = Cells(SonSatir, "C").End(xlDown).Row
    Loop Until IlkSatir = Rows.Count
    Application.ScreenUpdating = True
End Sub

Bu kod tam olarak işimi görmedi sıralamayı yaptı ama benim isteiğim aralıklarda yapmadı örnek olsun diye bir resim ekliyorum.

Resimde de göreceğiniz üzere A SUTUTUNA GORE SATIR BOLME İŞLEMİ YAPIYORUM VE HER SATIR BAŞLANGICINDA 1 BOŞLUK BIRAKIYORUM DAHA SONRA VLOOKUP İLE G SUTUNDAKİ HÜCRELERİ GETİRİYORUN. SORUM SU BOŞ SATIRDAN ÖNCEKİ TÜM VERİ ARALIĞINI VE BİRDEN FAZLA VERİ ARALIĞIM VAR G SUTUNUNA GÖRE NASIL SIRALATIRIM TEŞEKKÜRLER

 

[sahin.gungor]

if error satırını bu şekilde değiştirir misin deneyip dönüş yapınız. satırı kopyalayıp kendi satırında iferror yerine yapıştır

sh.Range("g2").Formula = "=IFERROR(VLOOKUP(C2,'Database'!F:I,4,0),"""")"

ÇALIŞTI TEŞEKKÜRLER

 

[sahin.gungor]

Bu kod tam olarak işimi görmedi sıralamayı yaptı ama benim isteiğim aralıklarda yapmadı örnek olsun diye bir resim ekliyorum.

Resimde de göreceğiniz üzere A SUTUTUNA GORE SATIR BOLME İŞLEMİ YAPIYORUM VE HER SATIR BAŞLANGICINDA 1 BOŞLUK BIRAKIYORUM DAHA SONRA VLOOKUP İLE G SUTUNDAKİ HÜCRELERİ GETİRİYORUN. SORUM SU BOŞ SATIRDAN ÖNCEKİ TÜM VERİ ARALIĞINI VE BİRDEN FAZLA VERİ ARALIĞIM VAR G SUTUNUNA GÖRE NASIL SIRALATIRIM TEŞEKKÜRLER