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
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 ... –
** Yardım etmek için bize yardım edin, geçerli kodunuzu gönderin. ** –