Makroda Satır Alma Sorunu

[uKiGS]

Merhaba,

Çalıştırmış olduğum excelimde makro var. içinde bulunan tablom satır 23 e kadar gidiyor fakat makro tabloyu satır 20 ye kadar alıyor. Bunun çözümü ne olabilir?

 

[antonio]

Merhaba,
Kodlarınızda aşağıda gösterilen kod satırını bulup;

[COLOR="Red"][B]saydir = WorksheetFunction.CountIf(Range("B:B"), "<>") + 1[/B][/COLOR]

Aşağıdaki kod satırı olarak değiştiriniz.

[COLOR="Blue"][B]saydir = Sayfa1.Range("B" & Rows.Count).End(3).Row[/B][/COLOR]

 

[uKiGS]

çok teşekkürler işimi gördüm.

 

[systran]

saydir = WorksheetFunction.CountIf(Range("B:B"), "<>") + 1 bu kodun yerine şunu deneyin.

saydir=Sayfa1.Cells(1048576, 2).End(xlUp).Row-1

 

[uKiGS]

peki bir soru daha sormak istiyorum. benim outlookta 2 tane mail atanmış durumda. birisi kişisel biriside şirket ben bu mail adreslerinden istediğimi seçebilir miyim ?

 

[antonio]

peki bir soru daha sormak istiyorum. benim outlookta 2 tane mail atanmış durumda. birisi kişisel biriside şirket ben bu mail adreslerinden istediğimi seçebilir miyim ?

Kodlarınızda; .Send ifadesini, .Display olarak değiştiriniz. Böylelikle göndermeye hazır pencere açılacak ama siz gönder butonuna basmadıkça gitmeyecektir. Bu esnada From (Kimden) kısmında hangi adresinizi istiyorsanız onu seçili duruma getirin. Mesajınızın gitmeden son durumunu da iyice kontrol ettikten sonra gönder butonuna tıklayarak gönderebilirsiniz.
Belirttiğim kod kısmı aşağıdadır:

            With .Item
                .SentOnBehalfOfName = "[COLOR="Red"]sizin_adresiniz@gmail.com[/COLOR]"
                .To = Cells(2, 11)
                .CC = Cells(3, 11)
                .Subject = Cells(1, 11)
                .bcc = "ukigs@hotmail.com"
               [COLOR="Red"][B] .display[/B][/COLOR] 'Send yerine kullanırsanız, siz göndermedikçe gitmez.
            End With

 

[uKiGS]

.Introduction = "Merhaba, Efesan Liman Sahasında bulunan gümrük ve stok araç adetleri marka ve model bazında aşağıdaki tabloda bilgilerinize sunulmuştur."

bu satıra ben 3 satırlık daha ek eklemek istiyorum onu nasıl yapabiliriz?

 

[antonio]

.Introduction = "Merhaba, Efesan Liman Sahasında bulunan gümrük ve stok araç adetleri marka ve model bazında aşağıdaki tabloda bilgilerinize sunulmuştur."
bu satıra ben 3 satırlık daha ek eklemek istiyorum onu nasıl yapabiliriz?

.Introduction = "Merhaba, Efesan Liman Sahasında bulunan gümrük ve stok araç adetleri marka ve model bazında aşağıdaki tabloda bilgilerinize sunulmuştur." & _
vbcrlf & "........" & _ 'ikinci satırınızı noktalı yere yazınız.
vbcrlf & "........."    'üçüncü satırınızı noktalı yerlere yazınız.

 

[uKiGS]

Biliyorum çok zahmet verdim size ama bu dosyayı otomatik olarak belirtilen saatte atmamız mümkün mü? Mesala her sabah saat 08:00'da atmasını istiyorum belirttiğim maile bunun bir yolu varmıdır ?

 

[antonio]

Biliyorum çok zahmet verdim size ama bu dosyayı otomatik olarak belirtilen saatte atmamız mümkün mü? Mesala her sabah saat 08:00'da atmasını istiyorum belirttiğim maile bunun bir yolu varmıdır ?

Gün ve saat planlamasını; Excel kodları ile değil, Windowsun görev zamanlayıcısı ile halledebilirsiniz. Belirtilen gönderimlerin yapılması için kodların yazılı olduğu dosyanın açık olması lazım.