Excel Kitaplar Arası Geçişte Problem

Excel Kitaplar Arası Geçişte Problem - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Kitaplar Arası Geçişte Problem (/konu-excel-kitaplar-arasi-geciste-problem.html)

Sayfalar: 1 2 3 4

Cvp: Excel Kitaplar Arası Geçişte Problem - ertus35 - 10/05/2019

(10/05/2019, 16:54)ertus35 yazdı: resim geldi mi acaba. Yükleyemedim sanırım resmi.

Cvp: Excel Kitaplar Arası Geçişte Problem - ertus35 - 10/05/2019

Hocam sadece K hücresindeki veriyi alsa da yeterli olur.

Cvp: Excel Kitaplar Arası Geçişte Problem - berduş - 10/05/2019

sayın ertus35 hangi sütunları alacağına siz karar verirsiniz

Set rng = ActiveWorkbook.ActiveSheet.Range("A" & i & ":L" & i).SpecialCells(xlCellTypeVisible)

"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şken
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)

Cvp: Excel Kitaplar Arası Geçişte Problem - ertus35 - 10/05/2019

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.

Cvp: Excel Kitaplar Arası Geçişte Problem - ertus35 - 10/05/2019

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

Cvp: Excel Kitaplar Arası Geçişte Problem - ertus35 - 11/05/2019

(10/05/2019, 22:05)haliliyas yazdı: sayın ertus35 hangi sütunları alacağına siz karar verirsiniz
Set rng = ActiveWorkbook.ActiveSheet.Range("A" & i & ":L" & i).SpecialCells(xlCellTypeVisible)
"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şken
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] [Resim: do.php?imgf=19283963bda91.jpg]

[/img]