ahmed_ummu
Altın Üye
- Katılım
- 28 Mart 2011
- Mesajlar
- 731
- Excel Vers. ve Dili
- Excel 2010 Professional Plus 64 Bit
- Altın Üyelik Bitiş Tarihi
- 15-10-2026
Merhaba arkadaşlar.
Aşağıdaki kod ile aktif satırın DO ve EL sütunları arasındaki verileri sildiriyorum.
Listbox'1 den 1. sırdaki veri seçilirse,
DO-DR aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 2. sırdaki veri seçilirse,
DS-DV aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 3. sırdaki veri seçilirse,
DW-DZ aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 4. sırdaki veri seçilirse,
EA-ED aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 5. sırdaki veri seçilirse,
EE-EH aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 6. sırdaki veri seçilirse,
EI-ELaralığındaki verileri yani sağa doğru 4 hücre
Siliniyor ve hücreler sola kaydırılıyor. Bu veriler DO-EL sütunlarında. Sola kayma son verinin bulunduğu EL sütunundan sonra ki sütunlarıda sola kaydırıyor. Sola kayma sadece aktif satırın DO-EL sütunları arasında olacak. İşin içinden çıkamadım, yardımcı olursanız çok sevinirim.
KODLARIM
cevap = MsgBox(ad & " in Aile ferdi " & ActiveCell.Offset(0, 0).Value & " i silecek misiniz...", vbInformation + vbYesNo, "Sil")
If cevap = vbYes Then
Dim s As Long
s = ActiveCell.Row
Select Case Val(ListBox1.ListIndex)
Case 0
s = ActiveCell.Row
Range("DO" & s & "DR" & s).Delete Shift:=xlToLeft
Case 1
s = ActiveCell.Row
Range("DS" & s & "DV" & s).Delete Shift:=xlToLeft
Case 2
s = ActiveCell.Row
Range("DW" & s & "DZ" & s).Delete Shift:=xlToLeft
Case 3
s = ActiveCell.Row
Range("EA" & s & ":ED" & s).Delete Shift:=xlToLeft
Case 4
s = ActiveCell.Row
Range("EE" & s & ":EH" & s).Delete Shift:=xlToLeft
Case 5
s = ActiveCell.Row
Range("EI" & s & ":EL" & s).Delete Shift:=xlToLeft
End Select
End If
Aşağıdaki kod ile aktif satırın DO ve EL sütunları arasındaki verileri sildiriyorum.
Listbox'1 den 1. sırdaki veri seçilirse,
DO-DR aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 2. sırdaki veri seçilirse,
DS-DV aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 3. sırdaki veri seçilirse,
DW-DZ aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 4. sırdaki veri seçilirse,
EA-ED aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 5. sırdaki veri seçilirse,
EE-EH aralığındaki verileri yani sağa doğru 4 hücre
Listbox'1 den 6. sırdaki veri seçilirse,
EI-ELaralığındaki verileri yani sağa doğru 4 hücre
Siliniyor ve hücreler sola kaydırılıyor. Bu veriler DO-EL sütunlarında. Sola kayma son verinin bulunduğu EL sütunundan sonra ki sütunlarıda sola kaydırıyor. Sola kayma sadece aktif satırın DO-EL sütunları arasında olacak. İşin içinden çıkamadım, yardımcı olursanız çok sevinirim.
KODLARIM
cevap = MsgBox(ad & " in Aile ferdi " & ActiveCell.Offset(0, 0).Value & " i silecek misiniz...", vbInformation + vbYesNo, "Sil")
If cevap = vbYes Then
Dim s As Long
s = ActiveCell.Row
Select Case Val(ListBox1.ListIndex)
Case 0
s = ActiveCell.Row
Range("DO" & s & "DR" & s).Delete Shift:=xlToLeft
Case 1
s = ActiveCell.Row
Range("DS" & s & "DV" & s).Delete Shift:=xlToLeft
Case 2
s = ActiveCell.Row
Range("DW" & s & "DZ" & s).Delete Shift:=xlToLeft
Case 3
s = ActiveCell.Row
Range("EA" & s & ":ED" & s).Delete Shift:=xlToLeft
Case 4
s = ActiveCell.Row
Range("EE" & s & ":EH" & s).Delete Shift:=xlToLeft
Case 5
s = ActiveCell.Row
Range("EI" & s & ":EL" & s).Delete Shift:=xlToLeft
End Select
End If