2016-04-07 32 views
-3

Seçtikleri satırın kullanıcı girdisini temel alarak bir veri satırına e-posta göndermek için bir makro yazıyorum. İhtiyacım olan şey girdiyi karşılık gelen hücre sırasına dönüştürmektir. Örneğin: Kullanıcı "3" giriş kutusuna girer, ardından 3. satırdaki değerler e-postayla gönderilir. Koddaki menzili el ile yaptığımda, e-posta düzgün çalışıyor. Herhangi bir yardım takdir edilir. Teşekkürler.Tamsayı girdisini karşılık gelen hücre satırına dönüştürme VBA

Şu anda, benim kodudur: senin açıklamada sayesinde, satırın içeriği onlar

.Item.Body = Range("A"& myValue).End(xlRight).Value 

Umut bu seçilen e-postanın gövdesine eklemek gerekiyor:

myValue = InputBox("Which row are you sending?") 
ActiveSheet.Range(myValue.Rows).Select 
With ActiveSheet.MailEnvelope .Introduction = "Blah" 
    .Item.To = ActiveSheet.range("G2").Value 
    .Item.Subject = "Blah" 
    .Item.Send 
End with 
+1

Yardımcınız, işleri nasıl yapmaya çalıştığınız hakkında hiçbir bilgi içermez. Topluluğunuzu ne yaptığınızı ve şeylerin güneye gittiği yerleri göstermek için kodunuzu ekleyin. Şu anda sorunuz sadece tahmin etmeye açıktır ... –

+0

** Yardım etmek için bize yardım edin, geçerli kodunuzu gönderin. ** –

cevap

0

+0

Bu aralığı o satırdaki A-G sütunlarına nasıl bölebilirim? – Jacob

+0

End (xlRight), içindeki verileri içeren en sağdaki hücreye götürecek ve aralığını sadece A-G içerecek şekilde değiştirecek: Range ("A" & myValue & ": G" & myValue) –

+0

Tamam Anladım. Teşekkürler. – Jacob

İlgili konular