alttan üste doğru kod kopyalamak.

[igultekin2000]

iyi akşamlar; raporlanmış sayfada biraz daha düzeltme yapmam gerekiyor. Örnek resim yükleyerek görsel açıklama yaptım, izahı biraz karışık gibi. Hayırlı akşamlar.

 

[Ömer BARAN]

Merhaba.

Sorunun üzerinden 1 ay geçmiş. Sorunu halletmemişseniz aşağıdaki kod'u kullanabilirsiniz.
-- tersten sıralama gerekli ise kod'da kırmızı renklendirdiğim satırın sol başındaki TEK TIRNAK ve YILDIZ işaretlerini silerek,
-- tersten sıralama gerekli değilse kırmızı renklendirdiğim satırı tamamen silerek,
kullanın.

Sub s2_101_00_BUL_YAZ()
    Set s2 = Sheets("Sayfa2")
    If s2.AutoFilterMode = True Then s2.AutoFilterMode = False
    s2son = s2.Cells(Rows.Count, 1).End(3).Row
    For sat = s2son To 2 Step -1
        If s2.Cells(sat, "H") = "101 00" And s2.Cells(sat, "I") = "Portföydeki Çekler-101 00" Then
            s2.Cells(sat, "I") = s2.Cells(sat + 1, "I")
        End If: Next
'''*** s2.Range("A2:I" & bson).Sort brn.[A2], 2
    MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[igultekin2000]

Merhaba.

Sorunun üzerinden 1 ay geçmiş. Sorunu halletmemişseniz aşağıdaki kod'u kullanabilirsiniz.
-- tersten sıralama gerekli ise kod'da kırmızı renklendirdiğim satırın sol başındaki TEK TIRNAK ve YILDIZ işaretlerini silerek,
-- tersten sıralama gerekli değilse kırmızı renklendirdiğim satırı tamamen silerek,
kullanın.

Sub BRN_101_00_BUL_YAZ()
Set b = Sheets("Sayfa2")
If brn.AutoFilterMode = True Then brn.AutoFilterMode = False
bson = brn.Cells(Rows.Count, 1).End(3).Row
For sat = bson To 2 Step -1
    If brn.Cells(sat, "H") = "101 00" And brn.Cells(sat, "I") = "Portföydeki Çekler-101 00" Then
        brn.Cells(sat, "I") = brn.Cells(sat + 1, "I")
    End If: Next
'''*** brn.Range("A2:I" & bson).Sort brn.[A2], 2
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

Sorun henüz çözülmedi manuel devam, gönderdiğiniz kod hata verdi ekliyorum

 

[Haluk]

Sorun henüz çözülmedi manuel devam, gönderdiğiniz kod hata verdi ekliyorum

Değişkenler tanımlanmayınca veya isimleri amacına uygun, ilgili nesneyi çağrıştıracak şekilde kullanılmayınca kodu okuyan da ne olduğunu anlamakta zorluk çekiyor haliyle.....

Koddaki;

Set b = Sheets("Sayfa2")

satırını aşağıdaki ile değiştirip, deneyin.

Set brn = Sheets("Sayfa2")

.

 

[Ömer BARAN]

Teşekkürler Haluk Bey.
Cevabımdaki hatayı düzelttim.

Deneme yaparken, Sayfa2'nin bir kopyasını oluşturup, kopya sayfanın adını da BARAN olarak değiştirmiştim.
Haliyle de sayfa adını çağrıştırmak üzere brn kısaltmasını kullanmış idim.
Gece geç vakit kod'u gönderriken düzeltme yapmaya da üşendim demekki.

Kod'un yeni halini kullanabilirsiniz.
.

 

[igultekin2000]

Değişkenler tanımlanmayınca veya isimleri amacına uygun, ilgili nesneyi çağrıştıracak şekilde kullanılmayınca kodu okuyan da ne olduğunu anlamakta zorluk çekiyor haliyle.....

Koddaki;

Set b = Sheets("Sayfa2")

satırını aşağıdaki ile değiştirip, deneyin.

Set brn = Sheets("Sayfa2")

.

Teşekkürler, ben yeni mesajı görene kadar eski kod güncellenmiş, hayırlı günler

 

[igultekin2000]

Teşekkürler Haluk Bey.
Cevabımdaki hatayı düzelttim.

Deneme yaparken, Sayfa2'nin bir kopyasını oluşturup, kopya sayfanın adını da BARAN olarak değiştirmiştim.
Haliyle de sayfa adını çağrıştırmak üzere brn kısaltmasını kullanmış idim.
Gece geç vakit kod'u gönderriken düzeltme yapmaya da üşendim demekki.

Kod'un yeni halini kullanabilirsiniz.
.

Teşekkürler, kod güncellenmiş, sorunsuz çalışıyor