Skip to main content

AccessTr.neT


Excel Kitaplar Arası Geçişte Problem

Excel Kitaplar Arası Geçişte Problem

#13
(10/05/2019, 16:54)ertus35 yazdı: resim geldi mi acaba. Yükleyemedim sanırım resmi.
Cevapla
#14
Hocam sadece K hücresindeki veriyi alsa da yeterli olur.
Cevapla
#15
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)
Cevapla
#16
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.
Cevapla
#17
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
Cevapla
#18
(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]
Son Düzenleme: 11/05/2019, 01:16, Düzenleyen: ertus35.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da