• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre değerini 1 arttırarak her defasında oluşan yeni hesaplamayı pdf olarak kaydetme ve whatsapp web de paylaşma

D

demgüzar

Katılım
19 Ocak 2009
Mesajlar
53
Excel Vers. ve Dili
office 356(macos)
Merhaba,
Öğrencilerime yazılı sınavlardaki durumlarının görebilmeleri için bir sınav analiz belgesi hazırlıyorum. Yapmayı istediğim şey mümkün mü onu bilmiyorum. Mümkünse ve yardım edebilirseniz minnettar olurum.

İsteğim iki aşamalı:
1) T1 hücresinde minumum değer, T2 hücresinde ise maksimum değer var. U1 hücresindeki değeri T1 hücresindeki minumum değerden başlayarak her defasında 1 arttıracak. Oluşan karneyi masa üstünde T3 hücresinde yazan adla açacağı klasöre T4 hücresindeki adla pdf olarak kaydedecek. Sonra u2 hücresindeki değeri 1 arttıracak ve yeniden aynı klasöre T4 hücresindeki adla pdf olarak kaydedecek. Bu işlemi T2 hücresindeki maksimum değere ulaşana kadar yapacak. (Yapmaya çalıştığım sınav adı ile klasör oluşturup her öğrencinin karnesini ayrı ayrı pdf olarak kaydetmek.

2) T5 hücresinde veli adı T6 hücresinde veli telefon numarası var. Whatsapp webi kullanarak T5 hücresindeki isme eğer isim rehberde yoksa T6 hücresindeki numaraya A1:S58 aralığını kopyalayarak ya da resim formatında yollamak istiyorum. Bu mümkün mü bilmiyorum. İlgilenen üstadlara şimdiden saygılarımı sunuyorum.

Örnek Dosya: https://drive.google.com/file/d/1Kd4hHF7cVOSU3NIyPja4YijvYchsCebX/view?usp=sharing
 
Son düzenleme:
Merhaba.
Cevabımın altındaki İMZA bölümünü okuyunuz.
.
 
Merhaba.
Belge ekte.
Belgeye eklediğim açıklamaları okuyunuz.

Ekteki belgeye fareyle BURAYA tıklayarak da erişebilirsiniz.
.
 

Ekli dosyalar

Son düzenleme:
Sayfayı yenileyerek önceki cevabıma tekrar bakınız.
Belgeye harici erişim için bağlantı ekledim.
.
 
Ömer BARAN' Alıntı:
Sayfayı yenileyerek önceki cevabıma tekrar bakınız.
Belgeye harici erişim için bağlantı ekledim.
.
Genişletmek için tıkla ...
Elinize emeğinize sağlık, aslında istediğim tek bir tuşla bütün öğrencilere ait sınav sonuçlarını ayrı ayrı pdf olarak kaydetmekti ama bu hali de benim işimi görür. Tekrar teşekkür ederim.
 
O zaman.
-- Module1'deki kodu tamamen silip yerine aşağıdaki kod'u yapıxtırın,
-- Sayfadaki Değer Değiştirme Düğmesini silin.
-- Sayfaya eklediğim düğmeye sağ tıklayıp MAKRO ATAyı seçip açılan ekrandan PDF KAYDET makrosunun adını seçerek işlemi onaylayın.
Rich (BB code): 
Sub KLASOR_OLUSTUR_PDF_KAYDET()
Dim d As Object, yol As String, sat As Integer, isim As String, dosya
On Error GoTo 10
If Sheets("Worksheet").[O7] > 0 Then
For sat = 1 To Sheets("Worksheet").[O7]
Sheets("Sınav Analizi").[U1] = sat
Set d = CreateObject("Scripting.FileSystemObject")
yol = CreateObject("wscript.Shell").SpecialFolders("Desktop") & "\" & _
        Sheets("Sınav Analizi").[A4].Value
dosya = d.FolderExists(yol)
If dosya = False Then:  d.CreateFolder yol
Sheets("Sınav Analizi").PageSetup.PrintArea = "$A$1:$S$58"
isim = Sheets("Sınav Analizi").[T4]

Sheets("Sınav Analizi").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=yol & "\" & isim & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
MsgBox sat - 1 & " PDF belge masaüstüne oluşturulan klasör içine kaydedildi.", vbInformation, "..:: Ömer BARAN ::.."
End If
10
End Sub
 
Ömer BARAN' Alıntı:
Eyvallah, cümlemizden.

Kolay gelsin.
.
Genişletmek için tıkla ...
merhaba Ömer bey yapmış olduğunuz kodlama için teşekkür ederim ama sizin önerdiğiniz şekilde yaptım zaman pdf olarak kayıt yapmıyor dosya üzerinde uygulayıp bizlerle de paylaşabilirmişsiniz. Teşekkürler
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst