• DİKKAT

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

Google Form'dan Excel'e Test Okuma

Link-Cevap kısmında nümerik klavyede 1-A, 2-B, 3-C, 5-D şıklarını yazar
6 ise son şıktan başlamak üzere tek tek siler.

Test sayfasında aktif hücre hangi öğrencideyse W tuşuna bastığımızda siler.

Test sayfası resim olarak kopya hücresini tıkladığımızda test sayfasının görselini kopyalar, Wsapp'a direkt yapıştırabilirsiniz.
 
Muhammet Hoca'm,
Güzel bir çalışma olmuş. Sağ olun.

* Nümerik klavyede 4'ü neden atladınız, merak ettim?
* 6 ile silince 1 ve 2'deki cevapları silmiyor.
 
Videoyu izlemişseniz link solda cevaplar sağda idi. Sonra değişiklik yaptım.

Daha önceden öğrenci cevaplarını el ile giriş yapıyordum. 4 boş şık anlamına geliyordu. El alışkanlığı kazandığım için değiştirmek istemedim.(Böylesi daha hızlı oluyor) (Tuşa makro ata kısmını Korhan Bey ayarlamıştı)

Sub Sil()
süt = WorksheetFunction.CountA(Range("G4:AJ4")) + 5
If süt = 4 Then Exit Sub
Cells(4, süt) = ""
End Sub
Sil makrosundaki If süt = 4 Then Exit Sub şeklinde düzeltin.
 
Size bilgi olsun diye yazıyorum.

1 sorudaki cevap yine silinmiyor.
Bir de herhangi bir hücrede iken 4'e basınca 4 yazıyor. Sonra onu silip 1, 2, 3, 5 basınca yazmıyor.
 
Tuş Aç makrosuna,
Application.OnKey "{100}", "" ilave edersiniz 4'e basınca işlem yapmaz.

Tuş Kapa makrosuna da
Application.OnKey "{100}" ilave etmeniz gerekir.



Sub Sil()
süt = WorksheetFunction.CountA(Range("E4:AH4")) + 4
Cells(4, süt) = ""
End Sub

şeklinde değiştiriniz.
 
Muhammet Okumuş' Alıntı:
excel.web.tr ekibinin katkılarıyla hazırlamış olduğum test okuma dosyasını sizlerle paylaşıyorum.
Genişletmek için tıkla ...

docs.google.com

0425_TRK_Paragraf-ZıtAnlam (Yanıtlar)

Form Yanıtları 1 Zaman damgası,Puan,AD SOYAD,OKUL NO,SORU-1,SORU-2,SORU-3,SORU-4,SORU-5,SORU-6,SORU-7,SORU-8,SORU-9,SORU-10,SORU-11,SORU-12,SORU-13,SORU-14,SORU-15,SORU-16 25.04.2020 11:52:30,75 / 100,öğrenci1,567,A,B,C,A,A,A,C,B,B,C,A,C,A,B,A,C 25.04.2020 13:15:53,85 / 100,öğrenci2,549,C,B,C,A,A,B
docs.google.com docs.google.com

Yukarıdaki şablona uyarlamaya çalıştım ancak başaramadım. Hazırladığınız dosyayı bu şablona göre düzenleyip paylaşırsanız çok makbule geçecek. Teşekkür ederim.
 
Haluk' Alıntı:
Google Sheet yapısı 1 No'lu mesaj ekindeki dosyada kullanılan Google Sheet yapısından farklı.... Aynı tablo yapısını kullanıp, tekrar deneyin bence.

.
Genişletmek için tıkla ...

Şu ana kadarki tüm sınavları bu şablonla yaptım. 1. ve 2. soruların cevaplarını görmüyor sadece. Kodlar üzerinde oynama yapmaya çalıştım ama nerede yapılacağını bulamadım. Kodlar benim şablondaki 2. ve 3. sütunu atlarsa herşey yerli yerine oturacak gibi. yardımcı olursanız çok makbule geçecek.
 
Sub Google_Form()
'by Haluk
'Zaman = Timer
Sheets("Google").Select
Dim myURL As String, mySh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("A1:ZZ1000") = ""

myURL = Sheets("Link-Cevap").Range("AJ4").Text



With ActiveSheet.QueryTables.Add(Connection:="URL;" & myURL, Destination:=Range("$A$1"))
.Name = "myTable"
' .FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables
.WebTables = 1

.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
"İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation

Rows(1).Delete
Columns(1).Delete
Columns(2).Delete
Columns(2).Delete
son = Cells(Rows.Count, 1).End(3).Row

For i = son To 2 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete
Next
Sheets("Test").Range("C8:AV107") = ""
Sheets("Test").Range("C8:AV107").Interior.ColorIndex = xlNone
son = Cells(Rows.Count, 1).End(3).Row
Sheets("Test").Range("D8:D107") = Range("B2:B101").Value
Sheets("Test").Range("S8:AV107") = Range("C2:AF101").Value
Sheets("Test").Select
Range("BD6").Select
Range("BG15") = WorksheetFunction.CountA(Sheets("Test").Range("S6:AV6"))
Range("C8:AV100").Borders.LineStyle = 0
son = Cells(Rows.Count, 4).End(3).Row
If son < 8 Then Exit Sub
Range("E8:E" & son) = "=IFERROR(VLOOKUP(D8,Liste!B:C,2,0),""???"")"
Range("E8:E" & son) = Range("E8:E" & son).Value

End Sub
Genişletmek için tıkla ...

Kodu bunla değişin veya

Columns(1).Delete
satırının altına
Columns(2).Delete
Columns(2).Delete
ekleme yapınız ve listenize öğrenci adlarını ekleyiniz.
 
Hocam gerçekten çok güzel bir program. Ben de zipgrade için yaptım buna benzer bir program. Sizinki bilgileri kendisi alması çok güzel olmuş.
 
Aslında ben de bunu zipgrade için yapmıştım. Sonra Google Form'a entegre ettim.

 
Bu da benim ki. Ama biraz daha geliştirdim. Yakında yeni halini yayınlayacağım. Mantık aynı. Sizin Google formdan veri almanız çok güzel olmuş. Keşke zipgradede de olsa.
 
Zipgrade adres olarak vermiyor. Zipgrade soruları yükleme kolaylığı açısından avantajlı. Google pdf yüklemeye izin vermiyor.
 
Aynen sizin kodlarınız ile bende veri çekmeye çalıştım. Aldığım verileri kendi dosyama uyumlu olsun diye CSV çıktısı haline getirdim :D
Kısa vadeli olarak bulunsun dedim. Uzun vadede google form un kullanılması mümkün değil. Sonuçta bi yerden sonra yüzyüze eğitim başlayacak.

Hakkınızı helal edin hocam.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst