Excel Mail Gönderme Butonu Hakkında Yardım

[cruoizei]

Merhabalar,

Excel'de ek'te Kargo Giriş dökümanı üzerinde bir buton tasarladım. Bu butona tıklandığında, giriş yapılan hücrelere göre mail gönderecek (Lotus üzerinden). Diğer yandan da girilen bilgileri bir alt satıra her yeni giriş yapıldığında kaydedecek. Şöyle ki; biraz araştırma yaptım ve lotus ile istediğim şekilde mail göndermesini sağladım. Ancak kaydetme işini çözemedim. Ek'te ki örnekte "B2 ile G2" arasındaki hücrelere her yeni bilgi girilip butona basıldığında kopyalayacak, alt satıra yapıştıracak ve silecek. Yeni giriş yapıldığında tekrar aynı işlemleri yapıp, bir öncekinin altına yapıştıracak. Bu konuda yardım edebilirseniz sevinirim..

(Ek olarak her kopyalama yapıldığında "A3" hücresinde aşağıya doğru sıra numarası koyma ve "H3 vs I3" hücrelerinden aşağı doğru da her butona basıldığında o günün tarih ve saatiyle beraber kaydetmesi mümkün müdür?)

 

[cruoizei]

Lütfen biri yardım edebilir mi ? Gerçekten çok ihtiyacım var ve araştırdım. Hiç bir yerde bu konuyla alakalı bir bilgi bulamadım. Yardımlarınızı bekliyorum...

 

[Orion1]

email gönder ve kaydet tuşlarını ayrı yapacam.
isterseniz siz birleştirebilirisiniz.
ama yarın bakarım.Yapan olmazsa yaparım.

 

[cruoizei]

Selamlar,

Öncelikle ilgilendiğin için çok sağol. Güzel haberlerini bekliyor olacağım

 

[Orion1]

Dosyanız ektedir.

Sub veri59()
Dim sat As Long
Sheets("Sheet1").Select
sat = Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row + 1
If sat < 3 Then sat = 3
If Range("B2").Value = "" Then
    MsgBox "Kimden Geldiği Boş olamaz." & vbLf & "Lütfen Bu hücreye veri giriniz!!", vbCritical, "U Y A R I"
    Range("B2").Select
    Exit Sub
End If
Cells(sat, "A").Value = WorksheetFunction.Max(Range("A3:A" & sat)) + 1
Cells(2, "H").Value = Date
Cells(2, "I").Value = Now
Range("B2:I2").Copy
Range("B" & sat).PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
Range("B2:G2").ClearContents
Range("B2").Select
MsgBox "Veri kaydedildi" & vbLf & "evrengizlen@hotmail.com", vbOKOnly
End Sub

 

[cruoizei]

Çok teşekkür ederim. Ellerine sağlık.. Son bişey daha söyliycem. Eğer müsaitsen tam süper olur.. En sol tarafa A3 hücresinden aşşağıya doğru da 1-2-3... diye sıra numarası yazdırabilirmiyiz ? Tekrardan ellerine sağlık..

 

[Orion1]

Çok teşekkür ederim. Ellerine sağlık.. Son bişey daha söyliycem. Eğer müsaitsen tam süper olur.. En sol tarafa A3 hücresinden aşşağıya doğru da 1-2-3... diye sıra numarası yazdırabilirmiyiz ? Tekrardan ellerine sağlık..

dosyayı düzenledim.5 Nolu mesajdan indirebilirsiniz.

 

[cruoizei]

Sağolasın zahmet verdim. Allah razı olsun..