- Katılım
- 17 Haziran 2008
- Mesajlar
- 1,871
- Excel Vers. ve Dili
- Microsoft Ofis Profesyonel 2019 x64 TR
- Altın Üyelik Bitiş Tarihi
- 26-03-2020
Merhaba arkadaşlar
aşağıdaki kod ile bir sayfayı yeni ay ve gün ismi olarak kopyalıyorum..
yapmak istediğim :
1- Yeni ay ismi inputboxa 08.11.23 şeklinde gelsin.
2- Yeni kopyalanacak sayfada B3:AS3 aralığında dolgu rengi gri olsun.
3- Yeni kopyalanacak sayfada ; Girisler sayfasında bulunan butonlar gelmesin..
yardımcı arkadaşa şimdiden teşekkürler.
aşağıdaki kod ile bir sayfayı yeni ay ve gün ismi olarak kopyalıyorum..
yapmak istediğim :
1- Yeni ay ismi inputboxa 08.11.23 şeklinde gelsin.
2- Yeni kopyalanacak sayfada B3:AS3 aralığında dolgu rengi gri olsun.
3- Yeni kopyalanacak sayfada ; Girisler sayfasında bulunan butonlar gelmesin..
yardımcı arkadaşa şimdiden teşekkürler.
C#:
Private Sub CommandButton6_Click()
Dim S1 As Worksheet, i As Integer
ynisim = Format(Date, "DD-MMMM-yyyy")
syfname = InputBox("Gün ay yılı Giriniz :", "Kopyala", ynisim)
If syfname = "" Then
MsgBox "İşlem iptal edildi.", , "Kopyala"
Exit Sub
End If
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Copy , Worksheets(Sheets.Count)
Set S1 = ActiveSheet
Dim Sayfa As Object, Kod As String
For Each Sayfa In ThisWorkbook.Worksheets
Select Case Sayfa.Name
Case "BuÇalışmaKitabı", "ThisWorkbook", "GIRISLER", "SADELESTIR", "DNT2", "deskbackup"
Case Else
Kod = Sayfa.CodeName
With ThisWorkbook.VBProject.VBComponents(Kod).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
S1.Range("A4").Select
Sheets("GIRISLER (2)").Name = syfname
'Sheets(Array("DONATI_METRAJI", "KD")).Select
Sheets("GIRISLER").Activate
Application.EnableEvents = True
Application.ScreenUpdating = False
End Sub
Son düzenleme: