Klasörleri Sekizerli Olarak Gruplandırma

Kısa Açıklama

Klasörleri Sekizerli Olarak Gruplandırma isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
D Sütunundaki formüller ile her klasörü 8 erli olarak ayırmaya çalışıyorum FHRİST sayfasındaki kod ile de FHRİST sayfası F sütununda da hücrelere geldikçe "1 Nolu Klasör ( 01 - 08 ) Arası" şeklinde belirtmeye çalışıyorum. Burada yapmak istediğim şey FHRİST sayfası H sütununa tarih girilince o satırı silen kodun , o satırı silip ARCHİVE sayfasındaki şekli ile ARCHİVE sayfasına atıp ARCHİVE sayfası F sütununda "1 Nolu Klasör ( 01 - 08 ) Arası" şeklinde ayırmayı sağlayacak şekilde iyileştirilmesi hususunda yardımlarınızı talep ediyorum.​
 
Ekli dosyalar
@YasarPiskin

Umarım yanlış anlamadım.

Fihrist sayfasının kod bölümünde mevcut kod blokunda yer alan
Fhrist.Rows(Target.Row).Delete Shift:=xlUp
satırının hemen üstüne şu satırları ekleyin

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)
 
Bir de, birkaç satır üstteki Set.... = şeklindeki satırların hemen altına
şu satırın eklenmesi gerektiğini yazmayı unutmuşum.

Set archive = ThisWorkbook.Worksheets("ARCHİVE")

1695078063107.webp
 
Geri
Üst