cari mutabakat mektubu

[umit1907]

. . .

Yazıcı ayarlarınızı bilmediğim için net birşey söyleyemem.
HP 1536 modeli için yapmış olduğum yazılım şu şekilde çalışıyor.

. . .

Merhaba Hüseyin Bey,
Bu fax ile mutabakat formu göndermenin içine mail kodunu ve yazdırma kodunu uygulayabilirmiyiz. Mesela 1 firmaya mail gidecek diğerine fax ve bizde bir nüsha çıktı almak istiyoruz bu tür bir uygulama eminimki herkesin ihtiyacıdır.Ek olarak bir örnek ekledim. Yardımlarınız için teşekkürler.

 

[umit1907]

PDF kaydetme ve mail atma

Merhaba Hüseyin Bey,

Bu dosyaya pdf kaydetme ve pdf mail atma özelliği ekleyebilirmiyiz.

 

[Emir Hüseyin Çoban]

.

Hangi mesajdaki dosyadan bahsediyorsunuz.

.

 

[umit1907]

Merhaba Hüseyin Bey,
#81. Mesajdaki çalışmanıza. Ekteki dosya ile aynıdır.

 

[umit1907]

Merhaba Hüseyin Bey,
#81. Mesajdaki çalışmanıza.

 

[mustilem23]

To = SMG.Cells(i, "E").Value
.CC = ""
.Subject = "Mutabakat"
.Attachments.Add yol/QUOTE]

Emir bey
4 nolu mesajınızdaki makroyu etkin olarak kullanıyorum lakin 2 sorunum var biri email konu kısmına mizandaki a b satırlarını ve mutabakat görüşmesi yazdırılabilir mi .
2 olarak kayıt edilen pdf mizandaki a ve b satırındaki metinleri alarak pdf ismi olarak kayıt ettirebilmek mümkün müdür.teşekkürler.

 

[mustilem23]

Yardımcı olabilir misiniz arkadaşlar 86 nolu mesaj için.teşekkürler.

 

[umit1907]

Belirli kritere göre aktarma

Merhabalar aşağıdaki kodla veri sayfasının A sutunundaki koşula göre son sayfasına veri alabiliyoruz. Ben buda A sutununda ki değer 1 den büyükse aktar şeklinde bir koşul belirtebilirmiyiz.


Sub kod_aktar()
Application.ScreenUpdating = False

Dim S75 As Worksheet: Set S75 = Sheets("VERİ")
Dim SS As Worksheet: Set SS = Sheets("SON")
Dim i As Integer, sat As Integer

SS.Range("A6:I" & Rows.Count).ClearContents

sat = 6
For i = 2 To S75.Cells(Rows.Count, "A").End(3).Row
If Len(S75.Cells(i, "A")) >= 7 Then
'hesap no
SS.Cells(sat, "B") = S75.Cells(i, "A")
'hesap adı
SS.Cells(sat, "C") = S75.Cells(i, "B")
'bakiye Borç
SS.Cells(sat, "D") = S75.Cells(i, "C")
'bakiye Alacak
SS.Cells(sat, "E") = S75.Cells(i, "D")
'vergi no
SS.Cells(sat, "F") = S75.Cells(i, "J")
'E-Mail
SS.Cells(sat, "G") = S75.Cells(i, "H")
'fax
SS.Cells(sat, "H") = S75.Cells(i, "G")
'TEL
SS.Cells(sat, "I") = S75.Cells(i, "F")
'açıklama
SS.Cells(sat, "J") = "MUHASEBE SERVİSİ DİKKATİNE !!"
sat = sat + 1
End If
Next i

i = Empty: sat = Empty
Set S75 = Nothing
Set SS = Nothing

Application.ScreenUpdating = True
MsgBox "B i t t i "
End Sub