Klasörleri Sekizerli Olarak Gruplandırma

YasarPiskin

VIP Üye
Kullanıcı
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:
İndirmek 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
 
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst