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

[demgüzar]

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

 

[Ömer BARAN]

Merhaba.
Cevabımın altındaki İMZA bölümünü okuyunuz.
.

 

[demgüzar]

Merhaba.
Cevabımın altındaki İMZA bölümünü okuyunuz.
.

Benden istediğiniz sanırım örnek dosya paylaşmam. Yanlış yorumladıysam özür dilerim. Örnek Dosya:
https://drive.google.com/file/d/1Kd4hHF7cVOSU3NIyPja4YijvYchsCebX/view?usp=sharing

 

[Ömer BARAN]

Merhaba.
Belge ekte.
Belgeye eklediğim açıklamaları okuyunuz.

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

 

[demgüzar]

Merhaba.
Belge ekte.
Belgeye eklediğim açıklamaları okuyunuz.

İlginiz için teşekkür ederim ancak dosyayı görebilmem için sanırım altın üye olmam gerekiyor.

 

[Ömer BARAN]

Sayfayı yenileyerek önceki cevabıma tekrar bakınız.
Belgeye harici erişim için bağlantı ekledim.
.

 

[demgüzar]

Sayfayı yenileyerek önceki cevabıma tekrar bakınız.
Belgeye harici erişim için bağlantı ekledim.
.

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.

 

[Ömer BARAN]

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.

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

 

[demgüzar]

Allah razı olsun.

 

[Ömer BARAN]

Eyvallah, cümlemizden.

Kolay gelsin.
.

 

[hakta85]

Eyvallah, cümlemizden.

Kolay gelsin.
.

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