Klasörleri Sekizerli Olarak Gruplandırma

YasarPiskin

VIP Üye
Kullanıcı
Katılım
6 Ara 2016
Mesajlar
2,059
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.​
 
hakki83
Tarih Hareketli Saat İkisinin Bileşkesini Alma
Sekizerli Klasör Numaralı Oluşturma

Ekli dosyalar

Çözüm
Ömer BARAN
Şöyle bir satır eklemeniz yeterli olur.

archive.Cells(ss, 1) = Fhrist.Cells(Target.Row, 8)

1695078920127.webp
Tarihe göre sırala Oylamaya göre sırala
@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)
 
Oyla 0 Olumsuz oyla
Ekran görüntüsünü paylaştığı hatayı aldım.
 

Ekli dosyalar

  • 111.webp
    111.webp
    76 KB · Görüntüleme: 32
  • 112.webp
    112.webp
    88.8 KB · Görüntüleme: 27
Oyla 0 Olumsuz oyla
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
 
Oyla 0 Olumsuz oyla
Son olarak FHRİST sayfası H sütununa tarih girilen tarihi silinen isim ile birlikte örnekteki gibi ARCHİVE sayfası A sütununa getirilmesi hususunda yardımlarınızı talep ediyorum.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt