Farklı Sayfadan Veri Çekme

[ahmzlm]

Merhaba,

İstediklerimi ekte excelde anlattım.
Umarım yeterli olur.

Şimdiden teşekkürler.

 

[ahmzlm]

Beklemedeyim

 

[ahmzlm]

Müsait olan bir üstad cevap verirse çok sevineceğim

 

[Orion1]

Dosyanız ektedir.

Sub yapistirtarih59()
Dim tar As Date, i As Integer, s1 As Worksheet, s3 As Worksheet
Sheets("Sheet2").Select
Set s1 = Sheets("Sheet1")
Set s3 = Sheets("Sheet3")
tar = DateSerial(Year(s1.Range("A7").Value), Month(s1.Range("A7").Value), Day(s1.Range("A7").Value))
For i = 1 To 59
    If tar = s3.Cells(13, i).Value Then
        s3.Range(s3.Cells(14, i), s3.Cells(Rows.Count, i)).ClearContents
        Range("D3:D11").Copy
        s3.Cells(14, i).PasteSpecial xlPasteValuesAndNumberFormats
        Application.CutCopyMode = xlCopy
        MsgBox "Veriler yapıştırıldı." & vbLf & "evrengizlen@hotmail.com"
        Exit For
    End If
Next i
        
End Sub

 

[ahmzlm]

Tam istediğim gibi olmuş çok teşkkürler

 

[ahmzlm]

Çalışma kitabımda çok sayıda açık sheet var.
Kullanıma sunmam için File>Options>Advanced>Show Sheet Tabs
yaparak açıp/kapatıyorum.
Kullanıcıların bunu yapmasını engelleyici bir önlem alabilir miyim?

Tşk.

 

[Orion1]

Gözden geçir sekmesinde sayfa koruma butonun yanında çalışma kitabını koru butonu var.Ona tıklayıp deneyiniz.

 

[ahmzlm]

Gözden geçir sekmesinde sayfa koruma butonun yanında çalışma kitabını koru butonu var.Ona tıklayıp deneyiniz.

Bu sefer olmadı