Tarih sorunu

[fmt1976]

Merhabalar değerli üstadlarım. Benim bir sorunum sorunum vardı. Ekte bulunan dosyada takvim vasıtası ile ilgi sayfaya gidiyorum fakat gittiğim sayfada istediğim hücreyi seçemiyorum ve o hücredeki satırlara değerleri yazamıyorum. destekelrinizi bekliyorum kolay gelsin

 

[Ömer]

Merhaba,

Kodu biraz uzatmışsınız. Aşağıdaki gibi deneyiniz..

Private Sub CommandButton1_Click()[COLOR=teal] ' Seçilen Sayfaya Git[/COLOR]
    Sheets("" & Format(DTPicker1, "mmmm") & "").Select
End Sub
 
 
 
 
Private Sub CommandButton2_Click() [COLOR=#008080]' Seçilen Sayfaya Aktar[/COLOR]
Dim sd As Worksheet, c As Range
 
Application.ScreenUpdating = False
 
Set Sd = Sheets("" & Format(DTPicker1, "mmmm") & "")
 
Sheets("Hesaplama").Range("D10:D14").Copy
 
Set c = Sd.Range("A:A").Find(DTPicker1, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
    Sd.Range("B" & c.Row).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End If
 
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

.

 

[fmt1976]

Teşekkürler ömer bey; command1 çalışıyor ama command 2 çalışmıyor
Set Sd = Sheets("" & Format(DTPicker1, "mmmm") & "")
satırında hata veriyor.

 

[fmt1976]

sorunu şimdi çözdüm teşekkür ederim