Girilen verilen otomatik tarih atarak yerleştirme

[CyberBlade_]

Arkadaşlar merhaba;

Makro olayında daha yeniyim (makro yazmaya en azından niyetlendim). Hergün yaptığım bir excel tablosu var. Ekli dosyadakine benzer. Bu soracağım soru makroyla yapılamayadabilir. Sadece eğer mümkünse nasıl olacağı hk. bilgi almak istiyorum.

Ben hergün exceldeki kırmızı fondaki alana bir önceki günün giriyorum. Sorum şu excel dosyamı açıp sarı kısımları doldurduğumda kırmızı alan gibi sayfanın altına bir önceki günün tarihini atarak otomatik olarak doldurabilir mi?

Şimdiden cevabınız için teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde kullanabilirsiniz. Eki inceleyiniz..

Sub VeriAktar()
    son = Cells(Rows.Count, "A").End(xlUp).Row + 3
    tarih = Application.Max([A:A])
    
    Range("A1:E5").Copy Range("A" & son)
    Range("A" & son) = tarih + 1
    Range("A" & son).NumberFormat = "m/d/yyyy"
End Sub

.

 

[CyberBlade_]

Eki inceledi gerçekten teşekkür ederim. Ama yeniyim demiştim. Bu kaydet butonunu nasıl sağa doğru kaydırırım? ekleyeceğim sütunlar var. Ama sütun ekle dediğimde buton sağa kaymıyor

 

[Ömer]

Butona fare ile sağ klik yapın ve denetim biçimlendir menüsüne girin bu menüden özellikleri seçerek "hücrelerle taşı ve boyutlandır" seçeneğini işaretleyerek tamam butonu ile işlemi bitirin.

.

 

[CyberBlade_]

Çok teşekkür ederim. Bu makro üzerinden öğrenmeye başlamış oldum. Emeğiniz için tekrar teşekkürler.

 

[Necdet]

Eki inceledi gerçekten teşekkür ederim. Ama yeniyim demiştim. Bu kaydet butonunu nasıl sağa doğru kaydırırım? ekleyeceğim sütunlar var. Ama sütun ekle dediğimde buton sağa kaymıyor

Butonu kaydırmaya da ben yardımcı olayım.

Butonun adını "Düğme" olarak değiştirin. Aşağıdaki kodları da Sayfa1 in kod bölümüne kopyalayın.

Buton son kolonun sağındaki kolonda bulunduğunuz satıra göre konumlanacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Kol As Integer
Kol = [IV1].End(1).Column
ActiveSheet.Shapes("Düğme").Top = Target.Offset(0, 0).Top
ActiveSheet.Shapes("Düğme").Left = Target.Offset(0, Kol + 1 - Target.Column).Left
End Sub