Çözüldü Artı Eksi Satır ekleme ve Silme

merakli · 17 Şub 2021

Bu örnekte olduğu gibi + karakterine tıkladığımızda aşağıdaki örnek dosya ve resimdeki örneği kendi sistemine adapte etmeye çalışıyorum.
Veri tipi eklediğimizde o veri tipiyle satır eklenecek ancak onun önünde + karakteri değil - karakteri olacak buna tıkladığında ise o satır silinebilecek
Bunu nasıl adapte edebiliriz
Problem o örneğe göre bizim takvim alanımız daha aktif ve hafta bütünlüğü var

merakli · 18 Şub 2021

Dosyayı @Ömer BARAN Beyin en son eklediği şekliyle güncelledim.

merakli · 20 Şub 2021

Güncel

Ömer BARAN · 21 Şub 2021

Belgeniz ekte, denemeler yaparsınız.
Kodlamalar biraz uzun olduğundan buraya eklemiyorum.

" + / - " hücrelerine yönelik senaryo ve işlemler şöyle:

" + " hücresine ÇİFT tıklama ile satır eklenir, bir alt hücreye " - " yazılır ve Combobox aynı satırda konumlanır.
Comboboxtan seçim yapılmadan başka hücre seçilmeye çalışılırsa uyarı verdirilerek combobox'un yanındaki hücre aktif hale gelir.
" - " yazan ve daha önce Combobox'tan yapılan seçim değiştirilmek istenirse bu kez F sütununa ÇİFT tıklama yapılarak devam edilir.
" - " yazalı hücre ÇİFT tıklandığında satır silinir.

.

merakli · 21 Şub 2021

@Ömer BARAN hocam cevabınızı görünce gecenin süprizi oldu benim için.
Çok teşekkür ederim.
Ne desem az inanın.
Şöyle bir durum var 3 tane revizyon gerekiyor versiyon 04 yazıp dosyayı buraya yüklüyorum.
Müsait olduğunuzda bu konudada ekleme yaparsanız her zamanki gibi sizlerin desteklerine müteşekkirim ve duacınızım.
yazmaya bile utanıyorum ama benim boyumu şuan aşan işler olduğu içinde çaresizim

Ömer BARAN · 21 Şub 2021

Sanırım böyle, kontrol ediniz.
101 ve 110 karşılıkları AKTARma sırasında yapılır, diğerleri, açılır listeden seçim yapıldığında.

.

merakli · 21 Şub 2021

Ömer BARAN' Alıntı:
Sanırım böyle, kontrol ediniz.
101 ve 110 karşılıkları AKTARma sırasında yapılır, diğerleri, açılır listeden seçim yapıldığında.

.

Çok teşekkür ederim bunu hazmedinceye kadar mola vereceğim

@Ömer BARAN bey açıklamanızı yeni gördüm. Açıklamada yazdığınız gibi bazı sütunları sağ tarafa eklemedik çünkü okulda bize onlar pek lazım olmuyor
Aşağıdakiler var sadece. Açılır menüyede sadece bunları koyabiliriz aslında ben o listeyi yatay koymuşum veri sayfasında

Gündüz	101
%25 Fazla Gündüz	103
Belleticilik	106
Sınav Görevi	107
Egzersiz	108
Ekders Yer.Geç.Gör. - Gündüz	110
Takviye Kursu (gündüz)	116
Takviye Kursu (gece)	117
Nöbet	119

merakli · 21 Şub 2021

Birde en son sütun yani genel toplam şu şekilde olacaktı bir öğretmene ait tüm (+) ve (-) alanlarının birleştirilmiş genel toplamı yapılabilir mi bilemiyorum

şu şekilde

Ömer BARAN · 21 Şub 2021

Sayfanın kod bölümündeki Worksheet_BeforeDoubleClick kod blokunda, kırmızı renklendirdiğim satırların arasını
yeşil olanlarla değiştirin.

Bu arada HESAPLAMA ALANIndaki 101, 104 ...gibi kodlara ilişkin satır toplamlarının
hangi sütunları kapsaması gerektiği hususunu netleştirmeniz lazım sanırım.
H sütunundan son tarih sütununa kadarki alın mı, yoksa seçilen aya ait ilk ve son gün sütunları arası mı?
Formüllerin şu anki hallerinde sorun var gibi (ay değiştirerek kontroller yapın).
Seçilen ayın hangisi olduğunu belirtmeyi unutmadan açıklarsanız iyi olur.
Formül kontrollerini bir kez Şubat/21 için bir kez de Ağustos/21 için yapmayı ihmal etmeyin,

Rich (BB code):

If Target.Column = 5 And Target.Value = "+" Then
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Target.Offset(1, 0) = "-": Target.Offset(1, -1) = Target.Offset(0, -1)
    ilksut = WorksheetFunction.Match(101, [5:5], 0)
    sonsut = WorksheetFunction.Match("GT", [5:5], 0) - 1
    ilksat = Target.Row: adet = WorksheetFunction.CountIf([D:D], Target.Offset(0, -1))
    Range(Cells(Target.Row, sonsut + 1), Cells(Target.Row + 1, sonsut + 1)).Merge
    alan = Range(Cells(ilksat, ilksut), Cells(ilksat + adet - 1, sonsut)).Address
    Cells(Target.Row, sonsut + 1).Formula = "=SUM(" & alan & ")"
    Target.Offset(1, 0).Activate:
    Range(Cells(Target.Row, ilksut), Cells(Target.Row, sonsut)).Copy _
    Range(Cells(Target.Row + 1, ilksut), Cells(Target.Row + 1, sonsut))
  
    With ComboBox1

merakli · 21 Şub 2021

Ömer bey
Ekders işlemlerimizin son 3 yılını incelediğimde
sadece aşağıdakileri kullanmışız.

1	Gündüz	101
2	%25 Fazla Gündüz	103
3	Belleticilik	106
4	Sınav Görevi	107
5	Egzersiz	108
6	Ekders Yer.Geç.Gör. - Gündüz	110
7	Takviye Kursu (gündüz)	116
8	Takviye Kursu (gece)	117
9	Nöbet	119

Bu durumda sağ taraftaki toplamların olduğu sütunlarda da bunların olması yeterli. Zaten bu şekilde yapmışız.
Ancak bizden başka arkadaşlarda okullarında bunu kullanacak olabilirler onlar bu açılır listeyi kendileri düzenleyebilsinler dersek.
Açılır menü Veri!C1:C20 arasında dolu satırları gösterecek şekilde kodlasak sanırım herkesin işini görebilir.

Bu arada HESAPLAMA ALANIndaki 101, 104 ...gibi kodlara ilişkin satır toplamlarının
hangi sütunları kapsaması gerektiği hususunu netleştirmeniz lazım sanırım.

Cevap :
Açılır menüde üstteki 9 kodu bıraktığımızda sanırım sorun kalmayacak.
Açılır menüde de sol taraftaki satır toplamları da 9 adet olmuş olacak. Sanırım bunu kastediyorsunuz üstteki mesajınızla.

Bunun dışında Her öğretmenin adının bulunduğu (+) olan satır ve sonradan o satırın altına (-) li açılan satırların genel toplamı GT sütununda denediğim kadarıyla düzgün çalışıyor.

H sütunundan son tarih sütununa kadarki alın mı, yoksa seçilen aya ait ilk ve son gün sütunları arası mı?

Cevap : yoksa seçilen aya ait ilk ve son gün sütunları arası mı?

Bu şekilde doğru
Yani seçili ayınilk günü ile son günü arası toplanacak
bu ayların dışında önceki aydan kalan ve sonraki aydan eklenen günler sadece bilgilendirme amaçlı bu alanlar hesaplamaya katılmıyor. Onlarda kendi aylarında hesaplamaya dahil ediliyor.

Formüllerin şu anki hallerinde sorun var gibi (ay değiştirerek kontroller yapın).

Cevap : Detaylıca inceleyip yazayım inşallah

merakli · 21 Şub 2021

Formüllerin şu anki hallerinde sorun var gibi (ay değiştirerek kontroller yapın).

Şu şekilde kontrol yaptım
2021 Ağustos ayında en fazla sütun varken tüm hücrelere 1 değeri verdim
Ağustos ayının ilk ve son sütunlarında bulunan önceki ve sonraki aylara da 1 değeri verdim
Ağustos 31 gün olduğu için tüm toplam alanlar 31 değerini göstermekteydi. Bu da yanlışlık olmadığını gösteriyor.
Diğer tüm aylara da bu şekilde denedim. O ay kaç gün çekiyorsa o kadar toplam değeri oluştuğunu gördüm.
Başka dikkatimi çeken bir yanlışlık görmedim.
Sadece Şubatta sağ taraftaki yeşil renkli sütunlarda formül olmayan bir satır vardı oraya üstteki formülü çekerek uyguladım.
Bir hata göremedim
Teşekkür ederim.

Aşağı kodu Veri!$C$1 : $C$20 satırları arasında sadece dolu olan satırları gösterecek şekilde güncelleyebilirsek. Hem şu durumda kullanılmayan TÜR Kodlarından kurtulmuş oluruz hemde bu kodları kullanmak isteyen diğer kişilerin önünü açmış oluruz diye düşünüyorum.

Rich (BB code):

If Target.Column = 5 And Target.Value = "+" Then
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Target.Offset(1, 0) = "-": Target.Offset(1, -1) = Target.Offset(0, -1)
    ilksut = WorksheetFunction.Match(101, [5:5], 0)
    sonsut = WorksheetFunction.Match("GT", [5:5], 0) - 1
    ilksat = Target.Row: adet = WorksheetFunction.CountIf([D:D], Target.Offset(0, -1))
    Range(Cells(Target.Row, sonsut + 1), Cells(Target.Row + 1, sonsut + 1)).Merge
    alan = Range(Cells(ilksat, ilksut), Cells(ilksat + adet - 1, sonsut)).Address
    Cells(Target.Row, sonsut + 1).Formula = "=SUM(" & alan & ")"
    Target.Offset(1, 0).Activate:
    Range(Cells(Target.Row, ilksut), Cells(Target.Row, sonsut)).Copy _
    Range(Cells(Target.Row + 1, ilksut), Cells(Target.Row + 1, sonsut))

    With ComboBox1

merakli · 21 Şub 2021

@Ömer BARAN Bey şöyle bir durum ortaya çıktı.
Öğretmenleri aktardık ve bazı öğretmenleri (+) tıklayarak (-) alt satırlar ekledik
Sonra yeniden öğretmen listesini aktar dediğimizde en sağdaki GT genel toplamda birleştirilmiş sütunlar o şekilde kaldı.
Tüm (-) satırları kaldırıp kaldırıp aktarma işlemi yapılınca sorun oluşturmaz ancak Sub AKTAR() içine bir kod ekleyerek düzeltilebilecek bir durumsa düzeltilebilir.

Ömer BARAN · 21 Şub 2021

AKTAR isimli MODULE1'deki kodu aşağıdakiyle değiştirin.

C#:

Sub AKTAR()
Set o = Sheets("Öğretmen")
Set c = Sheets("Ömer BARAN Hocamın Çalışması")
cson = c.Cells(Rows.Count, 2).End(3).Row
Application.Calculation = xlCalculationManual: Application.EnableEvents = False

hspilk = WorksheetFunction.Match(101, c.[5:5], 0)
hspson = WorksheetFunction.Match("GT", c.[5:5], 0)

If cson > 5 Then
    cs = 5: c.Range("A6:G" & cson).ClearContents
    c.Range(c.Cells(6, hspson), c.Cells(cson, hspson)).UnMerge
End If
If o.AutoFilterMode Then o.AutoFilterMode = False
sono = o.Cells(Rows.Count, 2).End(3).Row
o.Range("A1:F1").AutoFilter Field:=2, Criteria1:="Aktif"
If sono > 1 Then
    For Each XD In o.Range("C2:C" & sono).SpecialCells(xlCellTypeVisible)
        s = s + 1: c.Cells(cs + s, 1) = s: c.Cells(cs + s, 2) = XD.Offset(0, 1)
        c.Cells(cs + s, 3) = XD.Offset(0, 3): c.Cells(cs + s, 4) = XD
        c.Cells(cs + s, 6) = 101: c.Cells(cs + s, 7) = Sheets("Veri").[C1]
        If XD.Offset(0, 2) = "Yüksek Lisans" Or XD.Offset(0, 2) = "Doktora" Then _
            c.Cells(cs + s, 6) = 110: c.Cells(cs + s, 7) = Sheets("Veri").[C9]
        c.Cells(cs + s, 5) = "+": c.Cells(cs + s, 5).Font.Size = 14
    Next XD: c.Columns("B:G").AutoFit
c.Range(c.Cells(6, 1), c.Cells(6, hspson)).Copy
c.Range(c.Cells(7, 1), c.Cells(cs + s, hspson)).PasteSpecial Paste:=xlPasteFormats
c.Range(c.Cells(6, hspilk), c.Cells(6, hspson)).Copy
c.Range(c.Cells(7, hspilk), c.Cells(cs + s, hspson)).PasteSpecial Paste:=xlPasteFormulas
c.Range(c.Cells(cs + s + 1, 1), c.Cells(cs + s + 100, hspson)).Delete Shift:=xlUp
If o.AutoFilterMode Then o.AutoFilterMode = False
c.[A6].Activate
Application.EnableEvents = True: Application.Calculation = xlCalculationAutomatic
End If: MsgBox "Aktarma tamamlandı..", vbInformation, "Www.ExcelDestek.Com"
End Sub

merakli · 23 Şub 2021

Ömer BARAN' Alıntı:

AKTAR isimli MODULE1'deki kodu aşağıdakiyle değiştirin.

C#:

Sub AKTAR()
Set o = Sheets("Öğretmen")
Set c = Sheets("Ömer BARAN Hocamın Çalışması")
cson = c.Cells(Rows.Count, 2).End(3).Row
Application.Calculation = xlCalculationManual: Application.EnableEvents = False

hspilk = WorksheetFunction.Match(101, c.[5:5], 0)
hspson = WorksheetFunction.Match("GT", c.[5:5], 0)

If cson > 5 Then
    cs = 5: c.Range("A6:G" & cson).ClearContents
    c.Range(c.Cells(6, hspson), c.Cells(cson, hspson)).UnMerge
End If
If o.AutoFilterMode Then o.AutoFilterMode = False
sono = o.Cells(Rows.Count, 2).End(3).Row
o.Range("A1:F1").AutoFilter Field:=2, Criteria1:="Aktif"
If sono > 1 Then
    For Each XD In o.Range("C2:C" & sono).SpecialCells(xlCellTypeVisible)
        s = s + 1: c.Cells(cs + s, 1) = s: c.Cells(cs + s, 2) = XD.Offset(0, 1)
        c.Cells(cs + s, 3) = XD.Offset(0, 3): c.Cells(cs + s, 4) = XD
        c.Cells(cs + s, 6) = 101: c.Cells(cs + s, 7) = Sheets("Veri").[C1]
        If XD.Offset(0, 2) = "Yüksek Lisans" Or XD.Offset(0, 2) = "Doktora" Then _
            c.Cells(cs + s, 6) = 110: c.Cells(cs + s, 7) = Sheets("Veri").[C9]
        c.Cells(cs + s, 5) = "+": c.Cells(cs + s, 5).Font.Size = 14
    Next XD: c.Columns("B:G").AutoFit
c.Range(c.Cells(6, 1), c.Cells(6, hspson)).Copy
c.Range(c.Cells(7, 1), c.Cells(cs + s, hspson)).PasteSpecial Paste:=xlPasteFormats
c.Range(c.Cells(6, hspilk), c.Cells(6, hspson)).Copy
c.Range(c.Cells(7, hspilk), c.Cells(cs + s, hspson)).PasteSpecial Paste:=xlPasteFormulas
c.Range(c.Cells(cs + s + 1, 1), c.Cells(cs + s + 100, hspson)).Delete Shift:=xlUp
If o.AutoFilterMode Then o.AutoFilterMode = False
c.[A6].Activate
Application.EnableEvents = True: Application.Calculation = xlCalculationAutomatic
End If: MsgBox "Aktarma tamamlandı..", vbInformation, "Www.ExcelDestek.Com"
End Sub

Teşekkür ederim elinize sağlık

Çözüldü Artı Eksi Satır ekleme ve Silme

REKLAM

merakli

VIP

Ekli dosyalar

Ömer BARAN

merakli

VIP

Ekli dosyalar

merakli

VIP

Ömer BARAN

Kurucu

Ekli dosyalar

merakli

VIP

Ekli dosyalar

Ömer BARAN

Kurucu

Ekli dosyalar

merakli

VIP

merakli

VIP

Ekli dosyalar

Ömer BARAN

Kurucu

merakli

VIP

merakli

VIP

Ekli dosyalar

merakli

VIP

Ömer BARAN

Kurucu

merakli

VIP

Benzer Konular