tarih içeren satırları silmek

[atillauygun]

arkadaşlar gönderdiğim örnek listedeki tarih ile başlayan bütün satırları silmek istiyorum. satırların içini boşalmak değil amacım o satırların komple silebilirmiyiz.

 

[Orion1]

Dosyanız ektedir.

Sub tarilisatirsil_59()
Dim sat As Long
sat = Cells(65536, "C").End(xlUp).Row
For i = sat To 4 Step -1
    If IsDate(Cells(i, "C").Value) Then Range("C" & i & ":L" & i).ClearContents
Next
MsgBox "Tahrili satırlar silindi.", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub

 

[atillauygun]

çok teşekkür ederim bu komut satırları boşalttı ben o satırları komple silinmesini istiyorum mümkünmüdür.

 

[baydeniro]

Teşekkürler, çok işime yarayacak.

 

[atillauygun]

Sub tarilisatirsil_59()
Dim sat As Long
sat = Cells(65536, "C").End(xlUp).Row
For i = sat To 4 Step -1
If IsDate(Cells(i, "C").Value) Then Rows(i).Delete
Next
MsgBox "Tahrili satırlar silindi.", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub



Yaptım oldu walla tek birşey kaldı forumda bulamssam onuda sorarım çok teşekkürler

 

[atillauygun]

şimdi birşey daha kaldı b ve c si boş olan satırları komple silmek bu mümkünmüdür

 

[atillauygun]

resmen coştum yaw

Sub tarilisatirsil_59()
Dim sat As Long
sat = Cells(65536, "B").End(xlUp).Row
For i = sat To 4 Step -1
If IsEmpty(Cells(i, "B").Value) Then Rows(i).Delete
Next
MsgBox "Tahrili satırlar silindi.", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub

 

[atillauygun]

arkadaşlar kusura bakmayın çok soruyorum ama şuan bir rapora çalışıyorum ondan bu rapor normalde 1 günümü alıyor.

8.Stok Özel Kod : AIRWICK AQUA MIST (Çıkan: 64,00 , Birim Maliyet:106,48 , Tutar: 219,87 )

şimdi bu b hücresinde bulunan metinden çıkan rakamını m hücresine birim maliyetindeki rakamı n hücresine tutar yazanıda o hücresine yazdırmak istiyorum. mümkünmüdür

 

[Korhan Ayhan]

Merhaba,

Örnek dosya eklerseniz bu işlemleri topluca yapan bir kod yazılabilir. Tabi örnek dosyanızda ham veriniz ve olmasını istediğiniz şeklini eklemeniz gerekiyor.

 

[baydeniro]

Merhaba. "Depo" ile başlayan satırları sil demek mümkün mü ?

 

[atillauygun]

çok teşekkür ederim ben burdakiarkadaşların sayesinde bütün sorunlarımı hallettim

satırları sil

Sub tarilisatirsil_59()
Dim sat As Long
sat = Cells(65536, "C").End(xlUp).Row
For i = sat To 4 Step -1
If IsDate(Cells(i, "C").Value) Then Rows(i).Delete
Next
MsgBox "Tahrili satırlar silindi.", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub


boş satırları sil

Sub tarilisatirsil_59()
Dim sat As Long
sat = Cells(65536, "B").End(xlUp).Row
For i = sat To 4 Step -1
If IsEmpty(Cells(i, "B").Value) Then Rows(i).Delete
Next
MsgBox "Tahrili satırlar silindi.", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub

hücre aktar

Sub Ayristir()

Dim deg1 As String, deg2 As String, deg3 As String, i As Long

deg1 = "Çıkan:"
deg2 = "Birim Maliyet:"
deg3 = "Tutar:"

On Error Resume Next
Range("M2:M" & Rows.Count).ClearContents
Range("M2:N" & Rows.Count).ClearContents
Range("M2:O" & Rows.Count).ClearContents

For i = 2 To Cells(Rows.Count, "c").End(xlUp).Row
Cells(i, "M") = Split(Split(Cells(i, "c"), deg1)(1), ", ")(0) + 0
Cells(i, "N") = Split(Split(Cells(i, "c"), deg2)(1), ", ")(0) + 0
Cells(i, "O") = Split(Split(Cells(i, "c"), deg3)(1), ")")(0) + 0
Next i

End Sub



b hücresi için

Sub Ayristir()

Dim deg1 As String, deg2 As String, deg3 As String, i As Long

deg1 = "Çıkan:"
deg2 = "Birim Maliyet:"
deg3 = "Tutar:"

On Error Resume Next

For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
Cells(i, "M") = Split(Split(Cells(i, "B"), deg1)(1), ", ")(0) + 0
Cells(i, "N") = Split(Split(Cells(i, "B"), deg2)(1), ", ")(0) + 0
Cells(i, "O") = Split(Split(Cells(i, "B"), deg3)(1), ")")(0) + 0
Next i

End Sub