Diğer sayfaya veri göndermek

[zaruri]

Arkadaşlar, ekteki örnekte yapmaya çalıştığım,
Toplanan adetleri Sayfa2'de bulunan "bulunduğumuz günün tarihinin" ilgili hücrelerine göndermek istiyorum.

"Ertesi günü; dün gönderilen adetler sabit kalacak"
Yeni güne, yeni girilen adetler gönderilmiş olacak.

Yardımlarınızı bekliyorum.

 

[Muzaffer Ali]

Merhaba.

Dosyanız ekte.

 

[muygun]

Merhaba;
Alternatif:
İsim yada renk çoğalma ihtimaline göre...
İnceleyin.
İyi çalışmalar.

 

[zaruri]

dalgalikur, muygun arkadaşlarım, her ikinize de sonsuz teşekkürlerimi sunarım.
her iki çalışma da benim için çok değerli.
emeğinize sağlık.

 

[zaruri]

Bu İşlemi buton kullanmadan, sabah excel açıldığında çalıştıramaz mıyız?

 

[Muzaffer Ali]

Sabah Exceli açtığınızda D3 hücresinde bulunan =Bugün() formülü hesaplanacağı için o günün tarihini döndürecektir.
1- Bunu engellemek için D3 te yazan tarihin bir gün öncesi dikkate alınması gerekiyor.
2- Dosya gün içinde eğer kapatılıp yeniden açılırsa kod yeniden çalışacağı için yanlış değer gönderilebilir.

Şahsi doğru sonuç almak için aktarma işlemini kendinizin manuel yapmasıdır.
Yine de karar sizin.

Dosya açıldığında otomatik aktarma yapan dosyanız ekte.

 

[zaruri]

Değerli üstat; Haklısın fakat Manuel çalıştırmalar unutuluyor, test edelim iksi de elimizde var nasıl olsa, Fakat Excel Başka sayfada (Sayfa2) açıldığında hata veriyor.

 

[Muzaffer Ali]

Önceki kodları silin aşağıdakileri kopyalayın.

Private Sub Workbook_Open()
    Dim Bulunan As Integer
    Dim Tarih As Date
    Tarih = Worksheets("Sayfa1").Range("J1")
    If Not IsDate(Worksheets("Sayfa1").Range("J1")) Then
        Worksheets("Sayfa1").Select
        Range("J1").Select
        MsgBox "Sayfa1'in J1 hücresinde geçerli bir tarih olmalıdır. Aktarma yapılamadı.", vbCritical
        Exit Sub
    End If
    With Worksheets("Sayfa2")
        Bulunan = .Range("B:B").Find(Tarih).Row
        .Cells(Bulunan, "C") = Worksheets("Sayfa1").Range("I3")
        .Cells(Bulunan, "D") = Worksheets("Sayfa1").Range("I14")
        .Cells(Bulunan, "E") = Worksheets("Sayfa1").Range("I15")
        .Cells(Bulunan, "F") = Worksheets("Sayfa1").Range("I30")
    End With
End Sub

 

[zaruri]

Şimdi, Mükemmel çalışıyor,
Hakkınızı helal edin, sizi yordum.
Teşekkür ederim.

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.

 

[zaruri]

Çalışmanın son hali.

 

[Muzaffer Ali]

Sorun yok, çalışıyor değil mi?

 

[zaruri]

Sorunsuz, istediğimizden fazlası. çalışmayı paylaşım için ekledik.

 

[Muzaffer Ali]

Anladım. Kolay gelsin.