[Yardım]  Satır Sütun Aralığı Temizleme

VBE penceresindeki menüler ve işleyiş

Satır Sütun Aralığı Temizleme

İleti#1)  Levent145 » 19 Oca 2023 23:29

Herkese Merhaba aşağıdaki kodda şöyle bir hata var ve düzeltemiyorum.
Görev listesi sayfası C4:I19 sayfasındaki veriyi temizlemesi gerekirken C4:E19 arasında proplem yok ama F4:I sütünü aralığında B sütünü son dolu satıra kadar bakıyor ve F4:I son dolu satıra kadar temizliyor .
Olması gereken B sutunu dolu ise C4:I19 aralığını
temizlemeli.
Naptiysam olmadı Yardımcı olabilecek olan var mi?
Kod: Tümünü seç
Sub Dortlu_Sistem()

Dim sG As Worksheet, sD As Worksheet, gorev()

    Dim i&, ii&, krt$, w(1 To 1, 1 To 4)

    Set sG = Sheets("GÖREV LİSTESİ")

    Set sD = Sheets("4LÜ_DATA")



    sG.Range("C4:I19").ClearContents

    gorev = Array("Gündüz Çalışan", "Gece Çalışan", "Geceden Çıkıp İstirahatli", "Gündüzden Çıkıp İstirahatli")

    With CreateObject("Scripting.Dictionary")



        For i = 2 To sD.Cells(Rows.Count, "F").End(3).Row

            w(1, 1) = "": w(1, 2) = "": w(1, 3) = "": w(1, 4) = ""

            krt = sD.Cells(i, "B").Value

            For ii = 3 To 6

                Select Case sD.Cells(i, ii).Value

                    Case "1. GRUP": w(1, 1) = gorev(ii - 3)

                    Case "2. GRUP": w(1, 2) = gorev(ii - 3)

                    Case "3. GRUP": w(1, 3) = gorev(ii - 3)

                    Case "4. GRUP": w(1, 4) = gorev(ii - 3)

                End Select

            Next ii

            .Item(krt) = w

        Next i



        For i = 4 To sG.Cells(Rows.Count, "B").End(3).Row

            krt = sG.Cells(i, "B").Value

            If .exists(krt) Then sG.Cells(i, 6).Resize(i, 4).Value = .Item(krt)

        Next i


    End With

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Levent145
Siteye Alışmış
 
Kayıt: 09 Ağu 2020 22:51
Meslek: Memur
Yaş: 29
İleti: 150
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Satır Sütun Aralığı Temizleme

İleti#2)  Yken » 20 Oca 2023 23:48

Önce şunu dener misiniz? Bu olmazsa başka bir şey daha var.
Kod: Tümünü seç
For i = 1 To sG.Cells(Rows.Count, "B").End(3).Row
  krt = sG.Cells(i, "B").Value
  If .exists(krt) Then sG.Cells(i, 6).Resize(i, 4).Value = .Item(krt)
Next i

Buradaki
Kod: Tümünü seç
Resize(i, 4).Value


Kod: Tümünü seç
Resize(1, 4).Value   şeklinde olmalı
Kullanıcı avatarı
Yken
Siteye Alışmış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 57
İleti: 114
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Satır Sütun Aralığı Temizleme

İleti#3)  Yken » 20 Oca 2023 23:57

Yukarıdaki olmazsa bunu deneyiniz:
Kod: Tümünü seç
        For i = 4 To sG.Range("b3").End(xlDown).Row
            krt = sG.Cells(i, "B").Value
            If .exists(krt) Then sG.Cells(i, 6).Resize(1, 4).Value = .Item(krt)
        Next i
Kullanıcı avatarı
Yken
Siteye Alışmış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 57
İleti: 114
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Satır Sütun Aralığı Temizleme

İleti#4)  Yken » 22 Oca 2023 21:13

Kesinlikle en sondaki "for-next" blokunu değiştiriniz.
Kod: Tümünü seç
For i = 4 To sG.Range("b3").End(xlDown).Row
            krt = sG.Cells(i, "B").Value
            If .exists(krt) Then sG.Cells(i, 6).Resize(1, 4).Value = .Item(krt)
Next i
Kullanıcı avatarı
Yken
Siteye Alışmış
 
Kayıt: 07 Kas 2014 11:06
Meslek: Muhasebe
Yaş: 57
İleti: 114
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Satır Sütun Aralığı Temizleme

İleti#5)  Levent145 » 22 Oca 2023 23:55

Yken yazdı:Kesinlikle en sondaki "for-next" blokunu değiştiriniz.
Kod: Tümünü seç
For i = 4 To sG.Range("b3").End(xlDown).Row
            krt = sG.Cells(i, "B").Value
            If .exists(krt) Then sG.Cells(i, 6).Resize(1, 4).Value = .Item(krt)
Next i

Hocam yarın sabah deneyip size bilgi vereyim umarım çalışır elinize emeğinize sağlık Hocam
Kullanıcı avatarı
Levent145
Siteye Alışmış
 
Kayıt: 09 Ağu 2020 22:51
Meslek: Memur
Yaş: 29
İleti: 150
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Satır Sütun Aralığı Temizleme

İleti#6)  Levent145 » 23 Oca 2023 11:27

Hocam çok teşekkür ederim.
Kod sorunsuz çalıştı.
Emeğinize sağlık.
Kullanıcı avatarı
Levent145
Siteye Alışmış
 
Kayıt: 09 Ağu 2020 22:51
Meslek: Memur
Yaş: 29
İleti: 150
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum VBE Penceresi

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe