10/05/2019, 21:25
Excel Kitaplar Arası Geçişte Problem
10/05/2019, 21:49
ertus35
Hocam sadece K hücresindeki veriyi alsa da yeterli olur.
10/05/2019, 22:05
berduş
sayın ertus35 hangi sütunları alacağına siz karar verirsiniz
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
Set 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) 10/05/2019, 22:14
ertus35
Hocam daha önce de dediğiniz şekilde denedim, yani " Sadece K isterseniz ==> "Range("K" & i)" yazmanız yeterli"mail atmıyor direk takvimi aktif hale getiriyor.
10/05/2019, 22:16
ertus35
Tamam şimdi düzeldi, sondaki kodu silmemişim . Silince oldu.
Size çok minnettarım hocam. çok güzel bir çalışma oldu. Emeklerinize sağlık. Sizden çok şey öğrendim.
Saygılarımla
Size çok minnettarım hocam. çok güzel bir çalışma oldu. Emeklerinize sağlık. Sizden çok şey öğrendim.
Saygılarımla
11/05/2019, 01:15
ertus35
(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]