(10/05/2019, 22:05)haliliyas yazdı: sayın ertus35 hangi sütunları alacağına siz karar verirsiniz
"Range("A" & i & ":L" & i)" <== burada hangi satır ve sütunların olacağı belirtiliyor A ve L sütunları belirten sabitler, "i" ise satırları belirten değişkenSet rng = ActiveWorkbook.ActiveSheet.Range("A" & i & ":L" & i).SpecialCells(xlCellTypeVisible)
mesela 4. satırdayken kodu çalıştırırsanız ==> i=4 olur
"Range("A" & i & ":L" & i)" ==>"Range("A" & 4 & ":L" & 4)" ==>"Range("A4:L4")"
eğer K ve l olsun isterseniz ==>"Range("K" & i & ":L" & i)"
Sadece K isterseniz ==> "Range("K" & i)" yazmanız yeterli
_____________________________________________________________
.HTMLBody kısmını da aşağıdaki kodla değiştirmelisiniz
.HTMLBody = "Sayın İlgililer" & vbNewLine & _
"IT ile ilgili yeni oluşturulan iş emrini aşağıda görebilirsiniz." & _
vbNewLine & vbNewLine & "İyi Çalışmalar" & vbNewLine & vbNewLine & _
RangetoHTML(rng)
Hocam ;
HTML kısmını da ekledim fakat şu hata kodunu veriyor. "Compile Error" "Sub or Function not defined"
[img][/img]