tablodan temsilci silmek

[deasn]

Merhaba arkadaşlar ekte vermiş olduğum rapor da 01.03.2011 sayfa sarı ile renklendirdiğim kısmı bütün günlerde silmek istiyorum.Yani sadece 2 kişi temsilci kalmasını istiyorum.Dosyada otomatik ay açma işlemi makrosu çalışıyor..
Yardımlarınız için teşekkür ederim

 

[Mahir64]

Merhaba arkadaşlar ekte vermiş olduğum rapor da 01.03.2011 sayfa sarı ile renklendirdiğim kısmı bütün günlerde silmek istiyorum.Yani sadece 2 kişi temsilci kalmasını istiyorum.Dosyada otomatik ay açma işlemi makrosu çalışıyor..
Yardımlarınız için teşekkür ederim

Merhaba
Silme işlemi tekrarlamayacaksa CTRL baslı iken gün sayfalarını fare ile tıklayarak seçili hale getirin.
silme işlemi nasıl olacaksa sayfanın birinde silin diğerlerinde de aynı silme işlemi gerçekleşecektir.

 

[deasn]

Söylemiş olduğunuz işlemi uyguladım ve başarılı sonuç aldım yanlız makro formülde otomatik ay açma işlemi yaparken tablo üzerinde tarihleri doğru vermiyor..

 

[deasn]

yardımcı olabilcek yokmudur acaba lütfen

 

[Mahir64]

Merhaba
Silme işleminde hücrelerinin değiştiği için hatalı tarih almaktasınız.
Makronuzu değiştirerek deneyiniz. Denemeden mutlaka yedek alınız.

Private a As Integer, b As Integer, d As Integer
Sub yeniay()
Dim tarih As Date, i As Integer, isim As String
a = InputBox("Lütfen Yeni Ay Tanımlayınız", "Www.ExcelVBA.Net", Month(Date) + 1)
b = Sheets.Count
isim = "Www.ExcelVBA.Net"
If a = 0 Then GoTo 10
Sheets(10).Copy before:=Sheets(3)
ActiveSheet.Name = "Şablon"
Union(Range("j2:m2"), Range("j23:m23"), Range("b45:m49")).ClearContents
Application.DisplayAlerts = False
For i = b To 1 Step -1
If IsNumeric(Left(Sheets(i).Name, 1)) Then
Sheets(i).Delete
End If
Next i
d = CInt(Left(DateSerial(Year(Date), a + 1, "01") - 1, 2))
tarih = DateSerial(Year(Date), a, "01")
tarih1 = Format(tarih, "dd.mm.yyyy")
Union(Range("j1:m1"), Range("j12:m12"), Range("j23:m23"), Range("b45:m49")).ClearContents
For i = 1 To d
Sheets("Şablon").Copy before:=Sheets("Şablon")
ActiveSheet.Name = CStr(tarih1)
Union(Range("j2:m2"), Range("j13:m13"), Range("j23:m23")).Value = tarih
Range("b49").Value = isim
tarih = tarih + 1
tarih1 = Format(tarih, "dd.mm.yyyy")
Next i
10
Sheets("Şablon").Delete
On Local Error Resume Next
Sheets("toplam").Range("d1").Value = _
DateSerial(Year(Date), a, "01") & "-" & DateSerial(Year(Date), a, d) & " " & Replace(UCase(Format(DateSerial(Year(Date), a, "01"), "mmmm")), "i", "İ") & " " & "AYI SATIŞ RAPORLARI"
If Err.Number = 1004 Then
    MsgBox "Sayfanız korumalı olduğundan " & vbLf & _
    "Toplam sayfasındaki tarih bilgisi değiştirilememiştir.", _
    vbInformation, "Www.ExcelVBA.Net"
End If
Sheets("Toplam").Activate
MsgBox "Yeni Ay Açma İşlemi Tamamlandı", vbInformation, isim
Application.DisplayAlerts = True: isim = vbNullString
tarih = Empty: i = Empty: a = Empty: b = Empty: d = Empty
End Sub

 

[deasn]

Merhaba çok teşekkür ederim doğru olarak çalıştı makro.. İyiki varsınız

 

[Mahir64]

Merhaba çok teşekkür ederim doğru olarak çalıştı makro.. İyiki varsınız

İyi çalışmalar :hey: