Muharrem DOĞANCI: 2023

9 Aralık 2023 Cumartesi

✅ Selenium Runtime Error -214232576 (80131700) Hatasının Çözümü

Bu yazı, Selenium VBA kurulduktan sonra yaşanan çalışma hatasının çözümü ile ilgilidir.

İletişim kutusunda "Selenium Runtime Error -214232576 (80131700)" iletisi gelmişti.

Çözümü şu videoda gösterilmiştir. Denendi ve sorun çözüldü.

Kaynak: https://youtu.be/23clpw-88Wc

.NET Framework 3.5

https://www.microsoft.com/tr-tr/download/details.aspx?id=21 sayfasını ziyaret edin.
Paketin direkt linki:
https://download.microsoft.com/download/7/0/3/703455ee-a747-4cc8-bd3e-98a615c3aedb/dotNetFx35setup.exe

18 Kasım 2023 Cumartesi

Saç Stilleri

Kaynak: https://www.instagram.com/reel/CwVdzcDMHCy/?igshid=MzRlODBiNWFlZA==

14 Kasım 2023 Salı

SQL Sorgu Kalıpları

phpMyAdmin v 4.4.15.10 üzerinde kullanılan bir veri tabanının sorgu işlemleri için kullanılmıştır:

1) Belirli "id" aralığındaki verileri listeler:

SELECT *
FROM unite_sorulari
WHERE id BETWEEN 100 AND 200;

2) Belirli "id" aralığındaki eksik verileri listeler:

SELECT 
    t1.id + 1 AS missing_id_start,
    (SELECT MIN(id) - 1 FROM unite_sorulari WHERE id > t1.id) AS missing_id_end
FROM unite_sorulari t1
LEFT JOIN unite_sorulari t2 ON t1.id + 1 = t2.id
WHERE t2.id IS NULL
AND t1.id >= 1 AND t1.id <= 1000

Örnekte, 1-1000 numaralı "id" satır aralığındaki kopuklukların ilk ve son numaraları listelenmiştir.

Sorgu sonucu şöyle bir yanıt alınmıştır:

3) Sunum tablosunda ilk dosya adı "Slide1.jpg" olan verileri "Slide01.jpg" olarak günceller:

UPDATE sunum
SET ilk_dosya_adi = 'Slide01.jpg'
WHERE ilk_dosya_adi = 'Slide1.jpg';

4) İki ünite ve arasındaki soruları listeler:

SELECT * FROM `unite_sorulari` WHERE `ders_id` LIKE 'ders_id' and `unite_id` BETWEEN 13 AND 14

Kaynak: ChatGPT v3.5

3 Kasım 2023 Cuma

Yakup Kadri Karaosmanoğlu'nun "Kiralık Konak" Kitabının Başlangıcına Eklenen Eski Yazı

İlk defa 2010'lu yıllarda dikkatimizi çeken bu yazıyı başlangıçta bir kelimeyi yanlış okumuş ve tabi ki paragrafı tümüyle yanlış anlamıştık.

Yazının doğru okunuşu şöyle olmalıydı:

...
Burada zıbar, ağla, bağır, ne halt edersen et!
Ve üzerinden atlayıp çıkmaya hazırlanırken
Leyla bütün vücuduyla bacaklarına dolanıyor. İşte o vakit delikanlı
eğilip genç kızı saçlarından kavrıyor. Bunun
üzerine iki vücut arasında bir acaib boğuşmadır
başlıyor. Necdet dişlerini Leyla’nın etine geçiriyor. Leyla
tırnaklarını Necdet’in boynuna, yanaklarına,
kulaklarına saplıyor. Yumruklar, tokatlar ve tekmeler
Bu kanlı musara’adan her ikisi de nasıl sağ salim
kurtuldu, burası ayrıca çok şaşılacak(?) bir noktadır.
Lakin Necdet’in bildiği bir şey varsa o da bu dövüşmenin
...

* Yakup Kadri Karaosmanoğlu, Sodom ve Gomore, Birikim Yayınları, 1981, sayfa: 168.

30 Ekim 2023 Pazartesi

InDesign ile Çoklu QR Oluşturma Denemesi

Burada, https://www.youtube.com/watch?v=t7xV1DXNM8Y adresindeki, InDesign ile çoklu QR kod eklemekle ilgili içerik denenmiştir.

InDesign 2020, 2024 sürümlerinde deneme yapılmıştır. 2024 sürümünde herhangi bir iyileştirme saptanamamıştır. Videodaki sürüm 2024'tür.

🟠 VCARD kodu en çok 3 sütunu desteklemiştir.
🟠 Excel sadece Windows işletim sistemlerinde çalışır.
✅ Türkçe karakterlerden ö, Ö, ç, Ç, ü, Ü görüntülenebilmiştir.
❌ Türkçe karakterlerden ğ, Ğ, ı, İ, ş, Ş görüntülenememiştir.

📜 Excel VBA:


Dim i As Long
Dim j As Long
Dim k As Long
Dim lr As Long
Dim lc As Long
Dim Uzunluk As Long

Dim Arr1 As Variant
Dim Arr2 As Variant
Dim Arr2_QR As Variant
Dim Arr3() As String
Dim SutunBilgileri As Variant
Dim TekrarliVeriler() As String

Dim Harfler As String
Dim SatirAtla As String
Dim Tmp1 As String
Dim DosyaYol As String

Dim Yineleme As Boolean

Private Sub QR_Olustur_btn_Click()
Coklu_QR_Listesi_Olustur
End Sub

Sub Coklu_QR_Listesi_Olustur()

lc = Liste.Cells(1, Columns.Count).End(xlToLeft).Column
SatirAtla = "\n"
Harfler = "ABCDEFGHIJKLMNOPQRSTUWXYZ0123456789"
Yineleme = False

Liste.UsedRange.Interior.Color = xlNone

If InStr(1, UCase(Liste.Cells(1, lc)), "QR") > 0 Then
    Liste.Columns(lc).Delete
    lc = Liste.Cells(1, Columns.Count).End(xlToLeft).Column
End If

lr = Liste.Cells(Rows.Count, 1).End(xlUp).Row

If lr = 0 Or lc = 0 Then
    MsgBox "Dosyada veri yok", vbCritical
    Exit Sub
End If

ReDim SutunBilgileri(1 To 1, 1 To lc)
ReDim Arr1(1 To (lr - 1), 1 To lc)
ReDim Arr2(1 To (lr - 1), 1 To 1)
ReDim Arr2_QR(1 To (lr - 1), 1 To 1)

For i = 1 To lc
    Uzunluk = Len(Liste.Cells(1, i))
    
    If Uzunluk > 4 Then
        Uzunluk = 5
    End If
    
    For j = 1 To Uzunluk
        If InStr(1, Harfler, UCase(Mid(Liste.Cells(1, i), j, 1))) > 0 Then
            SutunBilgileri(1, i) = SutunBilgileri(1, i) & UCase(Mid(Liste.Cells(1, i), j, 1))
        End If
    Next j
Next i

Arr1 = Liste.Range("A2").Resize((lr - 1), lc)

For i = LBound(Arr1, 1) To UBound(Arr1, 1)
    For j = LBound(Arr1, 2) To UBound(Arr1, 2)
        Arr2(i, 1) = Arr2(i, 1) & Arr1(i, j) & ";"
    Next j
    
    Arr2(i, 1) = Arr2(i, 1) & "BEGIN:VCARD" & SatirAtla & "VERSION:2.1" & SatirAtla
    Arr2_QR(i, 1) = Arr2_QR(i, 1) & "BEGIN:VCARD" & SatirAtla & "VERSION:2.1" & SatirAtla

    For j = LBound(Arr1, 2) To UBound(Arr1, 2)
        Arr2(i, 1) = Arr2(i, 1) & SutunBilgileri(1, j) & ":" & Arr1(i, j) & SatirAtla
        Arr2_QR(i, 1) = Arr2_QR(i, 1) & SutunBilgileri(1, j) & ":" & Arr1(i, j) & SatirAtla
    Next j

    Arr2(i, 1) = Arr2(i, 1) & "END:VCARD"
    Arr2_QR(i, 1) = Arr2_QR(i, 1) & "END:VCARD"
Next i

For i = LBound(Arr2, 1) To UBound(Arr2, 1)
    For j = 1 To UBound(Arr2, 1)
        If i <> j Then
            If Arr2(i, 1) = Arr2(j, 1) Then
                k = k + 1
                ReDim Preserve TekrarliVeriler(1 To k)
                TekrarliVeriler(k) = j + 1 & ". satirda veri yinelenmis! " & Arr2(j, 1)
                Arr2(i, 1) = ""
                Liste.Range("A" & i + 1).Resize(1, lc + 1).Interior.Color = RGB(255, 175, 175)
                Liste.Range("A" & j + 1).Resize(1, lc + 1).Interior.Color = RGB(255, 175, 175)
                Yineleme = True
                Exit For
            End If
        End If
    Next j
Next i

Liste.Cells(1, lc + 1) = "#QR"
Liste.Range(Liste.Cells(2, lc + 1).Address).Resize(UBound(Arr2, 1), 1) = Arr2_QR

j = 0
For i = LBound(Arr2, 1) To UBound(Arr2, 1)
    If Arr2(i, 1) <> "" Then
        j = j + 1
        ReDim Preserve Arr3(1 To j)
        Arr3(j) = Arr2(i, 1)
    End If
Next i

On Error Resume Next
DosyaYol = ThisWorkbook.Path & Application.PathSeparator & Trim(Replace(ThisWorkbook.Name, ".xlsb", "")) & ".csv"
Kill DosyaYol
If Dir(DosyaYol) <> "" Then
    MsgBox "CSV dosyasi silinemedi." & vbNewLine _
    & "Verilerin yeniden yazdirilmasi icin CSV dosyasini kapatiniz."
End If
On Error GoTo 0

Set ADO = CreateObject("ADODB.Stream")
ADO.Charset = "utf-16le"
ADO.Open
For j = LBound(SutunBilgileri, 2) To UBound(SutunBilgileri, 2)
    Tmp1 = Tmp1 & SutunBilgileri(1, j) & ";"
Next j
Tmp1 = Tmp1 & "#QR"
ADO.WriteText Tmp1
ADO.WriteText vbNewLine
For i = LBound(Arr3) To UBound(Arr3)
    ADO.WriteText Arr3(i)
    ADO.WriteText vbNewLine
Next i
ADO.SaveToFile ThisWorkbook.Path & Application.PathSeparator & Trim(Replace(ThisWorkbook.Name, ".xlsb", "")) & ".csv", 2
ADO.Close

If Yineleme = True Then
    Set ADO = CreateObject("ADODB.Stream")
    ADO.Charset = "utf-16le"
    ADO.Open
    For i = LBound(TekrarliVeriler) To UBound(TekrarliVeriler)
        ADO.WriteText TekrarliVeriler(i)
        ADO.WriteText vbNewLine
    Next i
    ADO.SaveToFile ThisWorkbook.Path & Application.PathSeparator & Trim(Replace(ThisWorkbook.Name, ".xlsb", "")) & "_Yinelenmis_Veriler.txt", 2
    ADO.Close
    Yineleme = False
End If

Erase Arr1
Erase Arr2
Erase Arr2_QR
Erase Arr3
Erase SutunBilgileri
Erase TekrarliVeriler
Tmp1 = ""
DosyaYol = ""

End Sub

'Kaynak: ChatGPT v3.5 _
Derleme: Muharrem DOGANCI, 30.10.2023 Pazartesi

🔊 https://www.youtube.com/watch?v=lIAYAGP5JoA

29 Ekim 2023 Pazar

Youtube'ın Reklam Zorunluluğu

29.10.2023 Pazar tarihinde Youtube'ın reklamları zorunlu tuttuğu görüldü. Aradan kısa bir süre geçtikten sonra "karşı hamle" geldi. Şimdilik ücretsiz kullanıcılar için önemli bir sorun görünmüyor.

22 Ekim 2023 Pazar

Küçük Jet

Kaynak: https://www.facebook.com/100056606816438/videos/pade-pade-pesawat-siak-anuk-dowe-senine-anak-gamakn/713094546857055/

29 Eylül 2023 Cuma

💨Gaz Temaları

Medya içeriklerini oldukça etkileyen etkileşim sayısını artıran osurmak, yellenmek, gaz çıkarmak üzerine yapılmış kurgu ve temalar burada listelenmiştir.

Kaynak: https://www.instagram.com/reel/CumkPwsrRI1/?igshid=MTc4MmM1YmI2Ng==

6 Eylül 2023 Çarşamba

Borsaya Yeni Gelenlere Halkın Açılışı

Şeref Oğuz, Cüneyt Özdemir'in programına katıldı. Borsaya yeni katılan gençler hakkında değerlendirmelerini aktarırken kullanıdğı cümle, Cüneyt'in boşluğuna geldi.

"Halka açılayım derken halk da sana açılabilir."

20 Ağustos 2023 Pazar

Fatih Sultan Mehmet

"Ella" adlı şirket tarafından 1994'te yapılmıştır. Şirketin Arapça adı: (الكالة آلاء للإنتاج الفني ). Filmin Arapça adını "Es-Sultân Muhammedü'l-Fâtih" olarak belirlemişler. 90'lı yıllarda çocukluğunu geçirenler bunu kasette, VCD'de, DVD'de izlemişlerdi.

Filmin önemi ise oldukça büyük. 1994 yılından itibaren İslamî kesim bu filme olağanüstü bir rağbet göstermiştir. O dönemin çocuk nesli bu çizgi filmle Fatih Sultan Mehmed'e ve Osmanlı İmparatorluğu'na kusursuz bir saygınlıkla bakmış. Yurt dışında bile Fatih Sultan Mehmed'e, Osmanlı İmparatorluğu'na, İstanbul'a, İslamiyet'e ilgi artmıştır. Burada asıl özen gösterilmesi gereken konu, bu çizgifilmin ne kadar dokümantasyona bağlı ve gerçek olduğudur. İmkan olsa Feridun Mustafa EMECEN ve fetih dönemi ile yakından ilgilenmiş diğer araştırmacılar ile bu çizgifilmi derinlemesine izlemek çok verimli olurdu.

"Tarih Kanalı" adlı YouTube kanalında "Conquest of Constantinople Sultan Fatih Mehmet English Full Movie" adıyla İngilizce olarak yayınlanmıştır. https://youtu.be/qVqXbCHp8n8

Filmin künyesinde şu isimler var:

Senaryo:
Haşim VATANDAŞ
Yusuf ÖZASLAN
Yrd. Doç. Dr. Yekta SARAÇ

Yapım müdürü:
Mehmet Fatih SARAÇ

Yapımcı:
Al-Fateh
International Company Film

Ortaklaşa Üretilen İngilizce Versiyon:
Transcom International & Astrolabe Pictures

İdari yapımcı:
Osama Ahmad Khalifa

Yönetmen:
Haşim VATANDAŞ

YouTube algoritmasının filmde tespit ettiği seslerin künyeleri:
1) "Wojciech Kilar - Konu" kanalında "The Hunt Builds" https://youtu.be/cyHaNe8MaXI
2) "Kalite Müzik Üretim ve Tic. Ltd. Şti." kanalında "Tanbur Taksimi" https://youtu.be/Clp9wpgbdvs
3) "Kalite Müzik Üretim ve Tic. Ltd. Şti." kanalında "Ferah Feza" https://youtu.be/jSYHBJrVxiA
4) "Mona Müzik" kanalında "Osman Günaydın - Segah Peşrevi" https://youtu.be/2lt04qrlsnw
5) Veri yok sadece "Gurbet" adlı parça belirtilmiş
6) "Kalite Müzik Üretim ve Tic. Ltd. Şti." kanalında "Hicaz Son Yörük Semai - Sülayman Ergüner" https://youtu.be/IOHQ-Wr9Mm4
7) "Erdoğan Sazer - Konu" kanalında "Eski Ordu Marşı" https://youtu.be/MUDSq6SuCzo
8) "Erdoğan Sazer - Konu" kanalında "Mehter Vuruyor" https://youtu.be/f26vxWV2b_4
9) "Mona Müzik" kanalında "Osman Günaydın - Tarihi Çevir" https://youtu.be/j6jb-4fiLPs
10) (Parça şüpheli, benzerlik olabilir) "Ercan Irmak - Konu" kanalında "Taleal Bedru Aleyna" https://youtu.be/EEvx_wdwqs4

11 Ağustos 2023 Cuma

✅ Substance Painter'dan Alınan "Normal" Kaplamaların Blender Eevee Motorunda Ters Kabartma Sorununun Çözümü

Blender 4+ sürümünde Eevee motorunda Normal kaplamaların ters kabartma sorununun çözümü bu içerikte bulundu.

Kaynak: Zerobio https://youtu.be/1PsY_o1slh8?t=515

Daha eski sürümler için https://blender.stackexchange.com/questions/100017/directx-vs-opengl-normal-maps kaynağında şöyle bir ayar paylaşılmış:

15 Temmuz 2023 Cumartesi

Twitter Gelişmiş Arama

Elon Musk dönemi öncesi "Twitter Advanced Search" olarak bilinen arama ifadelerinden birisi de coğrafi konuma göre iletileri listeliyor:

geocode:40.9000175,-75.3287111,10km lang:tr

Arama ifadesine bakıldığında enlem ardından boylam değeri belirtiliyor. Sonra bir dairenin çapı belirtiliyor. Dil olarak Türkçe seçiliyor.

21 Haziran 2023 Çarşamba

Yapay Zeka Furyası

Akademik yazma
1. Paperpal
2. Consensus
3. Writesonic
4. Scholarcy
5. Trinka
6. Bearly

Kodlama
7. Durable AI
8. DeepCode
9. Web10
10. Akkio
11. Replit

Metin üretme
12. Copy AI
13. AISEO
14. Jasper AI
15. Quillbot
16. Rytr

Yazma asistanları
17. Writesonic
18. Adcreative
19. Bertha AI
20. Simplified
21. ArticleForge

Video
22. supercreator ai
23. tavus
24. windsor

Fotoğraf
25. Stockimg AI
26. Midjourney
27. Dreamer

Metin
28. ChatGPT
29. Notion AI
30. Jasper

Tasarım
31. Looka
32. Galileo AI
33. Uizard
34. Flair AI

Sunum
35. SlideAI
36. MurfAI

Seslendirme
37. Whisper Memos
38. Sound. ful
39. Steno

Üretkenlik
40. Nanonets
41. Lumen5
42. Jenni

İçerik düzenleme
43. Beautiful ai
44. Tome ai
45. Steve ai

Müzik araçları
46. Boomy
47. Amper
48. Jukedeck
49. Melodrive
50. Brain FM

Kaynak: https://twitter.com/beehaber/status/1671500452779753473

20 Haziran 2023 Salı

Yatırım Tavsiyeleri(!)

Nasihat yatırımcısı arada az da olsa doğru cümleler ekliyor.
İslam Memiş'in Twitter hesabından 31 Ekim 2023 tarihinde 23:05'te paylaşılan bir tweet. Tweet'te Memiş, şu ifadeleri kullanmaktadır:

Sizinle aynı kaderi paylaşmayanlar, size yeteri kadar değer vermeyenler ve sizi çabuk unutacaklar için ömrünüzü hebâ ettiniz. Kalan ömrünüzü huzurla geçirmek elinizde.
Herkes tercihleriyle yaşar.
Kimseye kalmadı, bize de kalmayacak.
Kimse doymadı, biz de doymayacağız.
Keyfini süremediğin emeğin kölesi olmak çok zordur.
Hep çekersin.

İslam Memiş'in Twitter hesabından 7 Kasım 2023 tarihinde 20:44'te paylaşılan bir tweet. Tweet'te Memiş, şu uyarıda bulunmaktadır:

Aileniz, akrabanız, iş arkadaşınız veya tanıdığınız size "Şu hesaba para yollarmısın ya da iban bilgilerini verirmisin bir yerden para gelecek" teklifinde bulunacaktır.
ASLA KABUL ETMEYİN.
Herkesin hesap numarası var, gitsin ordan yapsın.
Farkında olmadan kara para işlemi yapmış olabilirsiniz, terör örgütü üyesi olan birine para yollamış olabilirsiniz, bahisçilere, çete üyelerine, suç işleyenlere...
Ya da o sizi kullanıp sizin hesabınıza para gönderebilir.
Siz siz olun boşuna başınızı ağrıtmayın.
Bazen iyiliğin bedeli çok ağır olabilir!

8 Haziran 2023 Perşembe

Osmanlı'da "Tesekküş"

Bir bahname ile ortalık karışıvermişti. "Yav olur mu! Adamlar evliya idi, at üstünde îlâ-yı kelimetullâh için savaşmışlardı... Ayıp, Ayıp!..." denmişti.

Emre TAŞ konuyla ilgili paylaşım yapmıştı:

Bir Osmanlı elitinin resimli bahnâmesi, anonim resimler, 1799-1817.
https://www.davidmus.dk/islamic-art/the-ottomans/item/1734?culture=en-us
https://www.academia.edu/4645382/_Ottomanizing_Pornotopia_Changing_Visual_Codes_in_Eighteenth_Century_Ottoman_Erotic_Miniatures_
https://islamansiklopedisi.org.tr/bahname

Kaynak: Kopenhag David Koleksiyonu, Envanter no: 8/2018.
https://twitter.com/Emretas1903/status/1666878690985115668

28 Mayıs 2023 Pazar

Alışkanlıklarından (!) Vazgeçemeyen Toplum

Belki de 13 milyon yabancıyı göndereceğiz demek iyi bir politika değildi. Belki bunun tersini söyleyip işbaşına geçince göndermek lazımdı.

Evden eve nakliyat yapan şeref amca haftalığına 1500 verdiği Afganların gitmesini ister miydi?

Evinin her odasını dörder Afgan bekara 5'er bin liradan verip bir evden 20 bin kazanan ve kira piyasasını belirleyen Süleyman abiler ister mi hiç?

Kocası idlib'de savaşan Suriyeli kadına çökmek isteyen Halil dayı Suriyelilerin gitmesini ister miydi?

80'inde 25'lik Suriyeli genç kız almak isteyen Abdülkadir Mele sen ister misin Suriyelilerin gitmesini?

Antepli baklava ustasına haftada beş bin vereceğime Halepli ustaya 3.500 verir sigorta da yapmam diyen baklavacı Ali amca hiç ister mi gitmelerini?

Doğudan kamyon kasalarına doldurduğu Pakistanlıları İstanbul Güngören'de, Kartal'ın, Samandıra'nın ara sokaklarına boşaltan şöför Serkan hiç ister mi tek seferde 50 bin kazanma fırsatının yanmasını?

Ege kıyılarında zodiac ve can yeleği satan av malzemecisi Hüseyin abi ister mi?

Üzerinde Bulgar'ı durdurduğumuz Çatalca sırtlarını Katarlı müşterileri için çeviren arsa simsarı Ayhan abi ister mi?

O sırtları, yeşillikleri, imara açan büyüklerimiz ister mi hiç?

Camlı binalarda, plaza ve kulelerde körfezli araplara DAM pazarlayan dam satıcısı, emlak satıcısı abiler hiç ister mi?

Onların yaptığı işin esas ekmeğini yiyen Ankara'daki yağlı abiler hiç ister mi?

Bayrampaşa kuru gıda halinde, organize sanayi bölgelerinde üç kuruş az verip sigorta ödememek için Mehmet'imin yerine tercih edilen Nawazuddin bu topraklar için hiç ölür mü?

Dağları emanet ettiğiniz Afgan çoban, Trabzonlu Eren gibi tehlikeyi görüp hiç ölüme yürür mü?

Erenler ölecek, Mehmetler ölecek yine. Ekmeğini yemediği, emeğinin karşılığını alamadığı ülkesi için o ölecek.

Giremediği kıyıları korumak için ölecek, manzarasını bile bilmediği ada manzaralı rezidans mahalleleri düşmesin diye o ölecek.

Binemediği arabalara binilsin diye o ölecek.

Giremediği otellere girilsin diye, otel katları kulağı kulaklıklı korumalarla dolsun, içlerinde keyif yapılsın diye o ölecek.

Mehmet ölecek ki başkalarının dölü yürüsün.

Fakir ölecek ki zenginin namı duyulsun.

Milletin düzeni yerine milleti düzenler yaşasın.

Askere de, Suriye'ye de Mehmet gidecek, soyu kuruyacak, nesli tükenecek ki Ali abi, şöför Serkan, Ayhan abi, Halil dayı rahat etsin.

Yurtdışında PKK'lısı fetösü, mağduru oynasın mazlum gibi kanallarda, salonlarda, konferanslarda ağlasın. Ülkenin gerçek mazlumlarının adı duyulmasın istenir tabi.

Bu her tarafı, her paydaşı kârlı bir oyundur. Kaybedeni de cennetle müjdelenir, bir ömür öyle avunur.

Mehmet'in anası damı akan briket bir gecekonduda oğlunun kokusu yerine yaktığı tezekle bekler ölümü, dışarı asılmış bayrakla avunur.

Tabii ki Kâbilli Nawazuddin değil, Rakkalı faddal değil Mehmetler gidecek ki şehitler ölmez vatan bölünmez korosu devam etsin.

Sonuçta yan gelip yatmayacak, yüzü kıbleye bakacak şehit düşünce...

Mehmet'in kaderidir düşmek. Medine'de düştü, Kumanovo'da düştü, Plevne'de, Şipka'da düştü, Ahıska'da, Kırım'da, Kut'ta, Filistin'de, Gelibolu'da, Sakarya'da bile düşmüş... yine düşer nasılsa...

O düşsün ki bayrak yüksekte olsun.

Bayrağa bak desin birisi, Mehmet'ten bahsetsin, bu devran böyle yürüsün...

Mehmet sen bu ülkenin en öksüzüsün.

Anan vatan, baban millet.

Yoksa millet, sen tabii ki öksüzsün...

"İyi ki varsın Mehmet, iyi ki varsın Eren..." derken,

İyi ki varsın kelimesine hep bu düşüncelerle baktım. Bugün de o düşüncelerimi döktüm bu satırlara...

İyi ki varsınız Mehmetler, Erenler...

Siz var olun, ölmeyin daha... Başkaları şehit düşsün. Tüm saydıklarım da biraz sizin yerinize düşsün.

Düşsün de memleket az da olsa gün görsün... Güzel günleri görsün...

Selam ve saygılarımla.

Kaynak: https://twitter.com/yukselhos/status/1662817428965924867

19 Mayıs 2023 Cuma

Hattat Emin Barın'a Ait Hat

Daha önceden haberi yapılmıştı.

Şimdi de SVG kodunu paylaşıyorum.

<?xml version="1.0" encoding="utf-8"?>
<!-- Generator: Adobe Illustrator 22.1.0, SVG Export Plug-In . SVG Version: 6.00 Build 0)  -->
<svg version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" x="0px" y="0px"
	 viewBox="0 0 841.9 595.3" style="enable-background:new 0 0 841.9 595.3;" xml:space="preserve">
<style type="text/css">
	.st0{fill:#957571;}
</style>
<g id="Hat">
	<path class="st0" d="M643.9,416.2l68.7-23.2c4.7-1.6,4-5.7,1.8-5.1l-68.7,23.2C641.8,412.4,640.3,417.4,643.9,416.2z"/>
	<path class="st0" d="M218.8,422.4l44.4-22.1c4.4-2.2,3.2-6.2,1.1-5.3l-44.4,22.1C216.2,418.8,215.4,424.1,218.8,422.4z"/>
	<path class="st0" d="M674.7,316.4l5.2,5.2c1.2,1.2,3.1,1.1,4.1-0.2l6.1-7.3c0.9-1.1,0.8-2.7-0.2-3.7l-5.2-5.2
		c-1.2-1.2-3.1-1.1-4.1,0.2l-6.1,7.3C673.6,313.7,673.6,315.4,674.7,316.4z"/>
	<path class="st0" d="M653.6,321.9l5.2,5.2c1.2,1.2,3.1,1.1,4.1-0.2l6.1-7.3c0.9-1.1,0.8-2.7-0.2-3.7l-5.2-5.2
		c-1.2-1.2-3.1-1.1-4.1,0.2l-6.1,7.3C652.6,319.3,652.6,320.9,653.6,321.9z"/>
	<path class="st0" d="M663.3,307.3l5.1,5.1c1.1,1.1,3,1.1,4.1-0.2l6-7.3c0.9-1.1,0.8-2.7-0.2-3.7l-5.1-5.1c-1.1-1.1-3-1.1-4.1,0.2
		l-6,7.3C662.2,304.7,662.2,306.3,663.3,307.3z"/>
	<path class="st0" d="M553.7,426.2c0.8-16.2-8.8-24-13.1-26.6c-0.9-0.5-2,0.1-2,1.1v4.5c0,0.4,0.2,0.9,0.6,1.1
		c2.3,1.5,10.3,7.8,11.3,19.8C550.5,427.9,553.2,429.1,553.7,426.2z"/>
	<path class="st0" d="M627.6,214.1c-3.3-2.6-11.8-2.9-18.7-0.5c-1.7,0.6-3.3,1.3-4.8,2.1c-1.2,0.6-2.3,1.6-3.1,2.7
		c-1.1,1.6-2.1,3.7-2.6,6.2c-1,4.3-0.2,6.1,0.7,6.9c0.5,0.2,1.1,0.4,1.8,0.5c2.7,0.4,6.6-0.5,10.7-2.4c4.2-1.9,6.9,1.7,4.2,4.7
		c-2.8,2.9-9.3,7.3-9.3,7.3c-2.4,1.8-1.4,4.9,2.5,3.5c0,0,11.7-3.5,18.7-11.6C634.5,225.2,630.9,216.7,627.6,214.1z"/>
	<path class="st0" d="M520.5,180c1.1-0.9,2.7-0.9,3.8,0.1c1.2,1,2.8,2.6,3,3.9c0.3,2.2,1.6,8,4.2,9.9c0,0,2.1-0.2,3.8-7.4
		s3.6-9.9,6.9-7.4c3.3,2.4,6.7,5.3,6.9,7c0.2,1.7-1.4,7-2.9,6.3c-1.6-0.7-4-4.3-5.2-4.3c-1.2,0-3.8,12.5-5,14.7s-3.8,4.3-6.4,0
		s-6.7-10.7-10.7-12.6C515.8,188.5,517.7,182.5,520.5,180z"/>
	<path class="st0" d="M419.5,182.6l5.6-8c0.7-1,2.1-1.1,3-0.3l8.5,8.4c0.7,0.7,0.8,1.7,0.2,2.5l-5.6,8c-0.7,1-2.1,1.1-3,0.3
		l-8.5-8.4C419,184.5,418.9,183.4,419.5,182.6z"/>
	<path class="st0" d="M422.7,203.8l5.6-8c0.7-1,2.1-1.1,3-0.3l8.5,8.4c0.7,0.7,0.8,1.7,0.2,2.5l-5.6,8c-0.7,1-2.1,1.1-3,0.3
		l-8.5-8.4C422.3,205.7,422.2,204.6,422.7,203.8z"/>
	<path class="st0" d="M441.5,235.5c-2.4-7.3-7.8-11.9-8-12.1c-0.7-0.5-1.6-0.6-2.4-0.1c-1.1,0.5-1.8,1.7-1.9,3
		c0,0.8,0.3,2.4,2.4,3.7c0.5,0.5,5.8,5.8,5.9,10c0.1,4.1-0.6,5-0.6,5l-0.1,0.1c-0.4,0.8-0.5,1.6-0.1,2.2c0.3,0.4,0.7,0.6,1.1,0.6
		c0.1,0,0.1,0,0.2,0c0.8-0.1,1.5-0.7,1.8-1.7C440,245.9,442.9,239.9,441.5,235.5z"/>
	<path class="st0" d="M699.2,327.4c-2.1,0-6.1,13.2-4,14.7c4.1,2.9,6.8,12-8.9,10.4c-15.7-1.6-10.3-13-9.3-14.9s1.2-6.9-2.4-2.2
		c-2.8,3.6-7.4,10.6-11.4,14s-16.3,5.2-23.8-1.2c-7.5-6.3-9.2-17.3-11.5-20.8c-2.3-3.5-6.6-3.1-10.3,0c0,0-10.3,8.9-16.2,16.3
		c-5.9,7.4-9.2,13.4-9.9,22.8c-0.5,6.9,1,12.2,2.9,15.9c-4.4-4.2-13.1-14.1-15.2-27c-1.9-11.5-3.4-26.5-9.6-55.7
		c-6.2-29.2-18-46.9-19.2-48.5c-1.2-1.6-3.6-1.2-4.2,4.2c-0.8,8.3-2.1,26,0,28.6c2.1,2.6,12.8,10.2,18.7,35.5
		c5.9,25.3,1.4,26.7-0.5,29.1c-1.9,2.4-40.1,36.9-66.6,37.4c-15.9,0.3-19-5.6-18.9-10.4c2.5-1.7,5-3.5,7.5-5.5
		c33.9-25.6,34.1-37.6,34.1-39.2c0-3.9-0.4-11.9-13.8-13.2c-11.2-1.1-14.9,0.2-26.4-2.1c-11.7-2.4-17.2-8.1-15.7-15.5
		c1.4-7,26.7-32.7,34.3-37.6c6.4-4,8.8-3.5,14.9-2.6c0.9,0.1,2.7,0.2,3.6,0.2c1.4-0.1,2.6-0.8,3.5-1.9c2.7-3.3,5.6-9.6,5.2-12.8
		c-0.6-4.8-7.8-6.5-13.2-3.9c-5.3,2.7-20.5,12.9-32.7,27.2c-12.1,14.4-20.6,25.6-22.5,39.8c-1.9,14.2,13.2,18.7,20.2,20.4
		c7.1,1.7,20.4,1,25.8,1c4.7,0,9,2,8.4,6.5c-0.2,1.4-0.9,2.7-1.9,3.7c-2.4,2.6-9.2,8.6-27.5,19.9c-26.1,16.1-50.7,28.3-64.7,27.9
		c-14-0.4-36.7-10.1-32.4-34.5c0.4-2.5-2.8-2.6-3.6,0.2c0,0-4.8,17.1,5,31c9.9,13.8,24.8,17.8,32.4,17.8c7.4,0,28-5.4,56.7-25
		c-0.7,2.4-1.1,5.3-0.7,8.6c1.2,10.2,8.5,17.1,19.7,17.1s32.7-12.5,51.7-26.8c19-14.4,26.1-31,26.1-31s1,13.7,4.5,24.7
		c3.5,11.1,13.6,32.1,47.7,40.4c5.9,1.4,9.8,1.5,9-5.9c-0.8-7.4-2.9-13.2-6.9-14.3c-4-1.2-8.9,3-20.7-6.5c-11.8-9.5-13-14.4-11-20.5
		c3.1-9.6,16.7-20.7,21.4-20.7c2.3,0,4.5,0.7,6,2.4c3,3.5,12.3,22.6,22.8,22.7c10.7,0.1,18-13.8,23.1-13.8
		c7.8,16.8,21.8,16.1,30.3,5.4C707.7,348.6,702.3,327.4,699.2,327.4z"/>
	<path class="st0" d="M401.6,349.7l6.3-8.8c0.7-0.9,2-1.2,2.9-0.5l9.6,7c0.9,0.7,1.1,2,0.5,2.9l-6.3,8.8c-0.7,0.9-2,1.2-2.9,0.5
		l-9.6-7C401.1,351.9,400.9,350.6,401.6,349.7z"/>
	<path class="st0" d="M413.5,304.4c-4.4,1.8-11.5,5.8-18.6,10.4c-3.6,2.3-8.3,5.7-13.5,8.1c-2-4.6-5.5-11.7-10-16.5
		c-7-7.5-12.2-8-16.6-5.5c-3.7,2-8.7,8.3-10.6,11.4c-2,3.1-4.7,7.8-4.3,13.4c0.5,5.6,4.9,12.1,14,12.5c9.6,0.5,16.1-0.7,23.2-2.5
		c0.4,1.2,0.8,2.4,1,3.6c0,0,0.6,3-4,8.8c-4.6,5.8-12.1,13.7-32.4,27.3c-20.3,13.6-35.2,11.4-37.5,11.4c-5.4,0-24.5-7-25.8-24.6
		c0-2.2-0.3-9.8-1.6-9.8s-1.5,9-1.5,10.2s-0.8,16.7,9.8,28.5c10.6,11.8,26.4,10.5,36.5,7.7c12.6-3.5,39-22.6,49.4-35.4
		c9.6-11.9,13.5-23.4,13.3-30.1c5.8-2.9,11-7.5,15.4-10.5c5.8-3.9,14.8-8.4,14.8-3.7c0,2.2,1.9,4.5,4.4,1.2c0,0,4.3-8,4.3-12.9
		C422.9,303.8,419,302.2,413.5,304.4z M348.6,323.9c-2.9-5.1-0.1-8.3,1.5-9.6c1.6-1.3,8.1-3.3,13.6,1.4c2.6,2.3,5.6,5.9,8.3,10
		C363.7,327.2,351.1,328.3,348.6,323.9z"/>
	<path class="st0" d="M729.8,279.2c-11.5-0.6-51.7-1.4-63.5-1.4s-208.4,1.6-244,2.5c-35.6,0.9-67.6,0.6-73.4-1.1
		c-2.5-0.8-6.3-2.8-5.5-6.2c0.4-1.7,3.2-5.2,7.9-8.5c6-4.2,12.5-8.9,22.2-16.8c5.3-4.3,9.5-10.9,11.4-15c1.7-3.7,2.6-7.6,2.6-11.7
		c0-5-0.1-13.1-1-18.8c-1.4-8.9-10.5-23.1-18.1-27.3c-7.6-4.3-14.2,3.5-15.9,5.4c-1.7,2-5.7,7.1-7,9.8c-1.3,2.6-2.3,6.6-2.3,11.4
		c0,4.8,4.2,11.8,10.2,11.8c4.5,0,15.6-0.1,19.3,1.3c5.3,1.9,10,5.7,9.1,11.1c-2.1,7.6-17.4,15.5-25.2,22.3
		c-3.5,3.1-13.4,11-19.4,24c-6,13,1.4,17.7,2.9,18.7c1.8,1.2,8.9,3.6,25.2,3.6c21.7,0,172.4-3.6,182.5-3.6c10.2,0,114.9,0,125.1,0
		c10.2,0,28.8-0.4,32.9-0.7c6.7-0.5,17.6-3.8,22.4-5.3C733.3,282.9,732.9,279.3,729.8,279.2z M360.4,200.3c-13.7,0-11.2-6.1-10.4-7
		c2.2-3.5,14.8-5.7,21.3,7l0.5,0.8C369.7,200.7,366.1,200.3,360.4,200.3z"/>
	<path class="st0" d="M319.8,325.4c-1.5-3.2-3.3-4.7-3.4-4.7l-0.1-0.1c-0.6-0.3-1.8-0.5-3,1.3c-1.7,2.5-2.8,8.2-0.8,10
		c2.7,2.5,5.6,8.1,5.6,11.1c0,7.2-3.9,11.5-10.8,12c-7.2,0.4-14.8-7.2-17.3-14.5c-1.8-5.4-2.6-8-4-18.8c-1.2-9.5-4.2-22-9.4-39.5
		c-8.8-29.3-22-43.2-22.1-43.3c-0.3-0.3-0.7-0.3-1,0.1c-1.7,1.8-2,18.9,0.4,21.7c4.7,3.8,11.9,20.5,13.9,26.3
		c2.5,7.3,10.7,31.6,11.6,39.8l0.1,0.6c-0.7,2.7-2.1,5.4-3.9,8c-5.3,7.5-41.6,39-68.7,43.8c-12.6,2.2-16.7-5.2-16.9-5.5
		c-0.6-1-1.6-1.3-2.6-0.8c-0.9,0.4-1.6,1.5-1.1,3c0.2,0.6,5.7,17.3,18.5,17.3c14,0,35.5-10.8,54.9-27.6c10-8.6,16.9-18.3,21.2-29.6
		c2.1,10,6.1,18.8,11.7,26c3.2,4.1,7.4,6.4,12,6.6c4.8,0.3,10.1-1.8,13.4-5.3c5.6-5.8,5.7-12.7,5.8-16.5
		C323.9,338.5,322.6,331.5,319.8,325.4z"/>
	<path class="st0" d="M357.2,408.9l6.1-7.9c0.7-0.8,1.9-0.9,2.6-0.1l5.9,6.2c0.6,0.6,0.6,1.6,0.1,2.3l-6.1,7.9
		c-0.7,0.8-1.9,0.9-2.6,0.1l-5.9-6.2C356.7,410.5,356.6,409.6,357.2,408.9z"/>
	<path class="st0" d="M338.3,410.9l6.1-7.9c0.7-0.8,1.9-0.9,2.6-0.1l5.9,6.2c0.6,0.6,0.6,1.6,0.1,2.3l-6.1,7.9
		c-0.7,0.8-1.9,0.9-2.6,0.1l-5.9-6.2C337.9,412.6,337.8,411.6,338.3,410.9z"/>
	<path class="st0" d="M298,191.1c-1.2-3.3-5.3-7.6-9.6-3c-4.3,4.6-3.9,13-3.9,13c-4.2-5.1-10.2-11.5-11.5-11.5s-3,5.4-1.6,9.5
		c0.3,0.8,1.2,0.7,1.8,0.5c0.3-0.1,0.6-0.1,0.9,0c1.7,0.8,7.8,3.7,11.5,9.1c0,0,1.4,2.5,2.1,1.7c0,0,3.3-5.3,1.8-8.7
		c-1.1-2.4-1.7-7.5-0.6-8.2s4.5,3.3,4.5,3.3C294.2,197.9,298.4,192.1,298,191.1z"/>
	<path class="st0" d="M286.5,269.7l53.9-27.9c4.4-2.2,3.1-6.2,1.1-5.3l-53.9,27.9C284,266.2,283.2,271.4,286.5,269.7z"/>
	<path class="st0" d="M234.7,272.1L234.7,272.1c-1-8.4-6.9-54-9.6-74.9c0.3,0.2,0.5,0.3,0.8,0.4c1.1,0.2,5.3-2.8,6.2-5
		c0.4-1,0.1-1.9-0.8-2.5c-2.3-1.5-8-15.9-10-21.3c-0.3-0.7-0.9-1.1-1.6-1.1c-0.7,0-1.3,0.5-1.5,1.2c-0.1,0.5-2.4,12.6-2.4,15
		c0,0.4,0.1,0.9,0.4,1.5c0.9,2.1,1.5,3.9,1.7,5.7c4.2,35.2,14.1,117.4,14.7,121.7c0.5,3.4,0.7,5.6,0.6,8.3c-0.2,3.5-1.6,6.9-3.8,9.6
		c-2.5,3-6,6-10.4,9c-13.2,9.2-52.1,25.3-79.1,23.5c-8-0.5-14-3.4-17.8-8.5c-7.6-10.1-4.4-25.7-4.1-27.5c0.4-1.9-0.2-2.7-1-2.9
		c-0.9-0.2-1.8,0.5-2.1,1.7c-0.2,1-5.7,24.6,3.5,37.2c9.5,13.1,21.3,14.6,29.3,14.6c9.1,0,39.3-6.2,69.2-24.5
		c20.7-12.7,21-34.8,21-35C237.9,314.8,236,283.3,234.7,272.1z"/>
	<path class="st0" d="M165.8,298.5c6.5-4.6,12.6-13.6,13.4-15.6c0.8-2,1.5-5-0.3-7.4c-1.8-2.3-4.6-0.9-8.7-0.1
		c-7,1.3-6.9-2.1-5.7-5.8c0.9-2.9,2.5-3.6,3.2-4.4c1.2-1.4,0.8-8-0.6-8s-4.6,5.5-6.1,8.6c-1.5,3.1-4.2,11-2.1,16
		c2.8,6.5,11.5,0.4,11,4.6c-0.5,3.8-5.1,5.5-5.1,5.5c-1.7,0.3-2.6,1-3,2.9c-0.3,1.9-0.3,4.6,0.9,4.7
		C163.7,299.7,165.8,298.5,165.8,298.5z"/>
	<path class="st0" d="M180.5,202.3c-0.3-2.7-4-9.4-7.8-9.4c-2.6,0-4.7,2.5-5.7,4c-0.5,0.7-0.8,1.6-0.8,2.5v0.1
		c0,0.5-0.1,1.1-0.3,1.6c-0.9,2-1.2,3.7-1.1,5.1c0.4,3.5,4.2,5.3,7.5,5.5c0.2,0,0.3,0,0.5,0c3.3,0,5.5-2.5,5.6-2.6
		C180,207.7,180.8,205.1,180.5,202.3z M176.4,206.8c-0.2,0.4-1,0.8-2,0.8c-2.2,0.2-5.5-2.3-5.6-3.2c-0.1-0.9,0.4-2.6,0.6-3.1
		c0.3-0.6,0.8-1,1.4-1c0.1,0,0.2,0,0.3,0c0.8,0,1.7,0.4,2.5,1.2C175.5,203.4,177.1,205.8,176.4,206.8z"/>
</g>
<g id="cerceve">
	<path class="st0" d="M803.7,492.8H38.1V102.4h765.6V492.8z M79.7,451.3h682.5V144H79.7V451.3z"/>
</g>
</svg>

18 Mayıs 2023 Perşembe

Kusursuz (!) Osmanlı İmajı

Saldırılan Osmanlı'nın kaybedilen itibarı teslim edilmeli, derken ayarı tutturamayıp Klasik Osmanlı Tarihçiliğindeki gibi olağan üstü bir imaj, yüksek manevi mertebelere erişmiş çoğunluk temaları oluşturulmuştu.

Bunu diziler, filmler ile devam ettirdiler. Hatta 2015 sonrası, film yapımcıları Marmara ormanlarında havanın aydınlık olduğu saatler boyunca atları kişnettirdiler, nökerleri böğürttüler, kılıçları şakırdattılar. Öyle ki kadınlar kadınlık seslerini bırakıp, varoşlarda erkek yetiştirmesi zombi kadın sesleriyle oyunculuk yaptılar. Tabi ki bu sahnelerin hiçbirinde içki yoktu. Zaten Osmanlılar da içki nedir hiç bilmezlerdi. Onlar numune idi. Asla böyle şeyler yapmaz idi.

Derken, bir paylaşım geldi.

V.Murad'ın annesi, Abdülmecit'in eşi Şevkefza Valide Sultan'ın alışveriş listesi:

24 şişe kına kına şarabı
300 şişe Bordo şarabı
2 anbar Viyana birası
24 şişe Porto şarabı
Ufak fıçı derununda sardalya
Lakerda
Havyar

Kaynak: Osmanlı Arşivi H 23.7.1295 (Miladi 23 Temmuz 1878 Salı)

Kaynak: https://twitter.com/tarihiiimerak/status/1659137130134740995

27 Nisan 2023 Perşembe

"Klasör veya dosya başka bir programda açık olduğundan bu eylem gerçekleştirilemiyor" İletisinin Çözümü

Windows kullanıcıları, silme işlemi sırasında, muhakkak

"Klasör veya dosya başka bir programda açık olduğundan bu eylem gerçekleştirilemiyor"

iletisi ile karşılaşmıştır. Klasörü veya dosyayı kullanan uygulamayı bulmak için aşağıdaki adımları izleyiniz.

Windows + R veya Başlat listesini açınız.
resmon.exe yazınız. Bu Kaynak İzleyici'dir.
CPU sekmesini açınız.
İlişkili Tanıtıcılar'ı açınız.
"Tanıtıcıları Ara"ma çubuğuna klasör veya dosya adını yazınız.

Klasör veya dosyayı kullanan uygulamalar listelenecektir.
İşleminiz tamamlandıktan sonra ilişkili uygulamayı kapatıp klasörü veya dosyayı silebilirsiniz.

Kaynak: https://youtu.be/Ew12FJQ5R4k

14 Nisan 2023 Cuma

"Âmin Ecma'în"

Başkalarına okuması için "Ailenin Adı Yok ya da Neden Feminist Değilim?" adlı kitap yazıp başka türlü yaşayan bir varlık.

Ya "aile" hakkında bir şeyden bahsetme ya da ona yazdığına göre yaşa.

11 Nisan 2023 Salı

Word Dosyasından Bölüm Sonu (Quiz) Sorularını VBA, CSV ile PHPMyAdmin'e Yüklemek

Aşırı görsel içeren soru yapılarında toplu yükleme en uygun yöntemdir.

Otomatik listeleri manuel metne dönüştürmek için:

Sub Otomatik_Liste_Donustur()

Dim i As Long

Application.ScreenUpdating = False
If ActiveDocument.Lists.Count = 0 Then 'Eğer otomatik liste sayısı 0 ise,
    MsgBox "Dokümanda otomatik liste yok.", vbInformation
End If
'Öncelikle, otomatik madde işaretçilerini bulup, çakışmayı engellemek için değişiklik yapalım.

Do While ActiveDocument.Lists.Count > 0
    ActiveDocument.Lists(1).Range.ListFormat.ConvertNumbersToText
    
    Selection.Find.ClearFormatting 'Arama değer kısmında, önceki aramadan kalmış ayar varsa biçimlendirmeyi sil.
    Selection.Find.Replacement.ClearFormatting 'Yeni değer kısmında, önceki aramadan kalmış ayar varsa biçimlendirmeyi sil.
    With Selection.Find 'Seçim içinde değişiklik için arama başlat.
        .Text = "^9" 'Tab, sekme boşluğunu bul.
        .Replacement.Text = " " 'Klavyedeki boşluğa çevir.
        .Forward = True
        .Wrap = wdFindStop 'Aramaya baştan başlansın mı? İletişim kutusunu ekrana getirme, zaten seçim içinde değişiklik istiyorum.
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True 'Joker arama aktif olmalı.
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    i = i + 1
    If ActiveDocument.Lists.Count = 0 Then 'Eğer otomatik liste sayısı 0 ise,
        MsgBox "Toplam " & i & " adet otomatik madde donusturuldu."
        Exit Do 'Döngüden çık.
    End If
Loop

Selection.Find.Text = ""
Selection.Find.ClearFormatting
Selection.Find.Replacement.Text = ""
Selection.Find.Replacement.ClearFormatting

Selection.Collapse 'Seçimi serbest bırak.
Selection.HomeKey Unit:=wdStory
Application.ScreenUpdating = True
End Sub

Gereksiz paragrafları ve boşlukları temizlemek için:
⚠️ UYARI: belgenizde sekme (tab) boşluklarından oluşan bölümler varsa, kod uyarı verecektir. Bu tür boşluklarınız varsa o kısımları düzenledikten sonra boşluk silme işlemini uygulayınız. Aksi halde metinlerinizin hizaları bozulur.

Sub Bosluk_Sil()

Dim IslemOncesiSayfaSayisi As Long
Dim IslemSonrasiSayfaSayisi As Long
Dim BosTablo As Table

IslemOncesiSayfaSayisi = ActiveDocument.ComputeStatistics(wdStatisticPages)

Call Arama_Temizle

With Selection.Find
    .Text = "^9^9"
    .Forward = True
    .Format = False
    .MatchWildcards = False
    .MatchCase = False
    .Execute
    If .Found = True Then
        Selection.Range.Select
        MsgBox "Belgede TAB ile olusturulmus tablo olabilir," & vbNewLine & _
            "dosyayi duzenledikten sonra isleme devam ediniz.", vbInformation
        Selection.Find.Text = ""
        Exit Sub
    End If
End With

Call Arama_Temizle

With Selection.Find
    .Text = "^9"
    .Replacement.Text = " "
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

With Selection.Find
    .Text = "^s"
    .Replacement.Text = " "
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

With Selection.Find
    .Text = " [ ]@([! ])"
    .Replacement.Text = " \1"
    .MatchWildcards = True
    .Wrap = wdFindStop
    .Format = False
    .Forward = True
    .Execute Replace:=wdReplaceAll
End With

Call Arama_Temizle

For Each BosTablo In ActiveDocument.Tables
    BosTablo.Select
        If Len(Selection.Range.Text) <= 4 Then
            BosTablo.Delete
        End If
Next BosTablo

Call Arama_Temizle

With Selection.Find
    .Text = "^b"
    .Replacement.Text = "^p"
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

With Selection.Find
    .Text = "^l"
    .Replacement.Text = "^p"
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

With Selection.Find
    .Text = "^m"
    .Replacement.Text = "^p"
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

With Selection.Find
    .Text = "^n"
    .Replacement.Text = "^p"
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

With Selection.Find
    .Text = " ^p"
    .Replacement.Text = "^p"
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

With Selection.Find
    .Text = "^p "
    .Replacement.Text = "^p"
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

With Selection.Find
    .Text = "^p^p"
    .Replacement.Text = "^p"
    .Forward = True
    .Format = False
    .MatchWildcards = False
    Do While .Execute
        .Execute Replace:=wdReplaceAll
    Loop
End With

Call Arama_Temizle

IslemSonrasiSayfaSayisi = ActiveDocument.ComputeStatistics(wdStatisticPages)

MsgBox "Islem öncesi sayfa sayisi: " & IslemOncesiSayfaSayisi & vbNewLine & _
    "Islem sonrasi sayfa sayisi: " & IslemSonrasiSayfaSayisi & vbNewLine & _
    "Fark: " & IslemOncesiSayfaSayisi - IslemSonrasiSayfaSayisi, vbInformation

End Sub
Sub Arama_Temizle()

Selection.Collapse
Selection.Find.Text = ""
Selection.Find.ClearFormatting
Selection.Find.Replacement.Text = ""
Selection.Find.Replacement.ClearFormatting
Selection.HomeKey Unit:=wdStory

End Sub

Quiz ayıklamak için:
Makroda 1 ana kod bloğu, 5 adet ana koda bağlı alt fonksiyon vardır.

Dim FSO As FileSystemObject
Dim File As Object

Dim i As Long
Dim j As Long
Dim k As Long
Dim m As Long
Dim H1Sayisi As Long
Dim H2Sayisi As Long
Dim SoruID As Long
Dim UniteNo As Long
Dim SoruBasiKontrol As Long
Dim SoruSonuKontrol As Long
Dim Arr2Lr As Long
Dim Konum As Long
Dim Basla As Long
Dim Bitir As Long
Dim Basla2 As Long
Dim Bitir2 As Long

Dim Arr As Variant
Dim Arr2 As Variant
Dim AramaIfadeleri1 As Variant

Dim ArrLr As Boolean

Dim KaynakDosya As Document
Dim HedefDosya As Document

Dim Ayrac As String
Dim KaynakDizin As String
Dim DersID As String
Dim Etiketler As String
Dim Dizi() As String
Dim ArrCSV() As String
Dim Temp As String
Dim Temp2 As String
Dim Temp3 As String
Dim Temp4 As String
Dim HTMLIlk As String
Dim HTMLSon As String
Dim Soru As String
Dim ASikki As String
Dim BSikki As String
Dim CSikki As String
Dim DSikki As String
Dim ESikki As String
Dim DogruYanit As String

Dim DosyaSec As FileDialog

Dim BasTrh As Date
Dim BitTrh As Date

Sub Quiz_1_Ayikla()

Ayrac = Application.PathSeparator
Set FSO = New Scripting.FileSystemObject
Set DosyaSec = Application.FileDialog(msoFileDialogFilePicker)
With DosyaSec
    .AllowMultiSelect = False
    If .Show <> -1 Then
        Exit Sub
    End If
    KaynakDizin = .InitialFileName
    DersID = Split(DosyaSec.SelectedItems(1), Ayrac)(UBound(Split(DosyaSec.SelectedItems(1), Ayrac)))
    DersID = Split(DersID, ".")(0)
End With

SoruID = InputBox("PHP My Admin uzerinden girilen en son sorunun ID numarasindan +1 buyuklukte sayi giriniz")
If IsNumeric(SoruID) = False Then
    MsgBox "Lutfen bir tam sayi giriniz", vbInformation
    Exit Sub
End If

BasTrh = Now

Application.Visible = False
Application.ScreenUpdating = False

Set KaynakDosya = Application.Documents.Open(FileName:=DosyaSec.SelectedItems(1))

ReDim Arr(1 To 28, 1 To 2)
Call Quiz_2_Ara

If FSO.FolderExists(DosyaSec.InitialFileName & DersID) = False Then
    FSO.CreateFolder (DosyaSec.InitialFileName & DersID)
End If

For i = LBound(Arr) To UBound(Arr)
    If Temp = "" Then
        For j = 1 To 2
            If IsNumeric(Mid(Arr(i, 1), j, 1)) = True Then
                Temp = Temp & Mid(Arr(i, 1), j, 1)
            End If
        Next j
    End If
    
    If Len(Temp) > 0 Then
        UniteNo = CLng(Temp): Temp = ""
    End If
    
    If InStr(1, Arr(i, 1), "B" & Chr(246) & "l" & Chr(252) & "m Sorular" & Chr(253)) > 0 Then
        Set HedefDosya = Documents.Add(KaynakDosya.AttachedTemplate.FullName)
        If IsEmpty(Arr(i + 1, 2)) = False Then
            HedefDosya.Range.FormattedText = KaynakDosya.Range(Arr(i, 2), Arr(i + 1, 2)).FormattedText
        Else
            HedefDosya.Range.FormattedText = KaynakDosya.Range(Arr(i, 2), KaynakDosya.Range.End).FormattedText
            ArrLr = True
        End If
        
        Call Quiz_3_Isaretle
        
        With HedefDosya
            .WebOptions.Encoding = msoEncodingUTF8
            .SaveAs2 FileName:=DosyaSec.InitialFileName & DersID & Ayrac & _
                UniteNo & "_quiz_MS_HTML.html", Fileformat:=wdFormatFilteredHTML, _
                AddToRecentFiles:=False
            .Close False
        End With
    End If
    If ArrLr = True Then Exit For
Next i
ArrLr = False

KaynakDosya.Close False

For i = 1 To 14
    If FSO.FolderExists(DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML_dosyalar") = True Then
        IMGKlasor = DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML_dosyalar"
        FSO.CreateFolder (DosyaSec.InitialFileName & DersID & Ayrac & i)
        FSO.CreateFolder (DosyaSec.InitialFileName & DersID & Ayrac & i & Ayrac & "img")
        FSO.CopyFile IMGKlasor & Ayrac & "*.*", _
            DosyaSec.InitialFileName & DersID & Ayrac & i & Ayrac & "img" & Ayrac
    ElseIf FSO.FolderExists(DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML_files") = True Then
        IMGKlasor = DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML_files"
        FSO.CreateFolder (DosyaSec.InitialFileName & DersID & Ayrac & i)
        FSO.CreateFolder (DosyaSec.InitialFileName & DersID & Ayrac & i & Ayrac & "img")
        FSO.CopyFile IMGKlasor & Ayrac & "*.*", _
            DosyaSec.InitialFileName & DersID & Ayrac & i & Ayrac & "img" & Ayrac
    End If
    If FSO.FileExists(DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML.html") = True Then
        Call Quiz_4_Sadelestir(DosyaSec.InitialFileName & DersID & Ayrac, _
                            i, _
                            DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML.html")
    End If
    If FSO.FolderExists(DosyaSec.InitialFileName & DersID & Ayrac & i & Ayrac & "img" & Ayrac) = True Then
        For Each File In FSO.GetFolder(DosyaSec.InitialFileName & DersID & Ayrac & i & Ayrac & "img" & Ayrac).Files
            If InStr(1, File.Name, "quiz_" & i & "_") = 0 Then
                GorselAdi = File.Name
                GorselAdi = Replace(GorselAdi, "image", "quiz_" & i & "_")
                File.Name = GorselAdi
            End If
        Next File
    End If
    If FSO.FileExists(DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML.html") = True Then
        FSO.DeleteFile DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML.html"
    End If
    If FSO.FolderExists(DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML_dosyalar") = True Then
        FSO.DeleteFolder DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML_dosyalar"
    ElseIf FSO.FolderExists(DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML_files") = True Then
        FSO.DeleteFolder DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz_MS_HTML_files"
    End If
    If FSO.FileExists(DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz.html") = True Then
        Call Quiz_5_CSV_Uret(DosyaSec.InitialFileName & DersID & Ayrac & i & "_quiz.html", i)
    End If
Next i

Set ADO = CreateObject("ADODB.Stream")
ADO.Charset = "utf-8"
ADO.Open
For i4 = LBound(ArrCSV) To UBound(ArrCSV)
    ADO.WriteText ArrCSV(i4)
    ADO.WriteText vbNewLine
Next i4
ADO.SaveToFile DosyaSec.InitialFileName & DersID & Ayrac & DersID & ".csv", 2
ADO.Close

Debug.Print "Son soru ID: "; SoruID

Application.Visible = True
Application.ScreenUpdating = True
ActiveWindow.ActivePane.View.Type = wdPrintView

BitTrh = Now
MsgBox Format(BitTrh - BasTrh, "hh:mm:ss") & " surede islem tamamlandi."

End Sub

Sub Quiz_2_Ara()
Selection.HomeKey unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.ParagraphFormat
    .OutlineLevel = wdOutlineLevel1
End With
j = j + 1
With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do While .Execute
        H1Sayisi = H1Sayisi + 1
        If H1Sayisi > 14 Then
            MsgBox H1Sayisi & " adet H1 baslik var, kaynak dosyayi kontrol edip islemi tekrar deneyiniz", vbInformation
            Application.Visible = True
            KaynakDosya.Activate
            Stop
        End If
        Arr(j, 1) = Trim(Selection.Range.Text)
        Arr(j, 2) = Selection.Range.Start
        j = j + 1
        Selection.MoveRight unit:=wdCharacter, Count:=1
        
        'BASLIK 2 - BOLUM SORULARI ARAMA BASLANGICI
        With Selection.Find.ParagraphFormat
            .OutlineLevel = wdOutlineLevel2
        End With
        With Selection.Find
            .Text = "B" & Chr(246) & "l" & Chr(252) & "m Sorular" & Chr(253)
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute
            H2Sayisi = H2Sayisi + 1
            If H2Sayisi > 14 Then
                MsgBox H2Sayisi & " adet 'Bolum Sorulari' var, kaynak dosyayi kontrol edip islemi tekrar deneyiniz", vbInformation
                Application.Visible = True
                KaynakDosya.Activate
                Stop
            End If
            Arr(j, 1) = Trim(Selection.Range.Text)
            Arr(j, 2) = Selection.Range.Start
            j = j + 1
            Selection.MoveRight unit:=wdCharacter, Count:=1
        End With
        Selection.Find.ClearFormatting
        'BASLIK 2 - BOLUM SORULARI ARAMA SONU

        Selection.Find.Text = ""
        With Selection.Find.ParagraphFormat
            .OutlineLevel = wdOutlineLevel1
        End With
    Loop
End With
Selection.HomeKey unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

End Sub

Sub Quiz_3_Isaretle()
HedefDosya.Activate

ReDim AramaIfadeleri1(1 To 10, 1 To 3)
AramaIfadeleri1(1, 1) = "a[).-]": AramaIfadeleri1(1, 2) = "¨aa": AramaIfadeleri1(1, 3) = "aa¨"
AramaIfadeleri1(2, 1) = "b[).-]": AramaIfadeleri1(2, 2) = "¨bb": AramaIfadeleri1(2, 3) = "bb¨"
AramaIfadeleri1(3, 1) = "c[).-]": AramaIfadeleri1(3, 2) = "¨cc": AramaIfadeleri1(3, 3) = "cc¨"
AramaIfadeleri1(4, 1) = "d[).-]": AramaIfadeleri1(4, 2) = "¨dd": AramaIfadeleri1(4, 3) = "dd¨"
AramaIfadeleri1(5, 1) = "e[).-]": AramaIfadeleri1(5, 2) = "¨ee": AramaIfadeleri1(5, 3) = "ee¨"
AramaIfadeleri1(6, 1) = "A[).-]": AramaIfadeleri1(6, 2) = "¨aa": AramaIfadeleri1(6, 3) = "aa¨"
AramaIfadeleri1(7, 1) = "B[).-]": AramaIfadeleri1(7, 2) = "¨bb": AramaIfadeleri1(7, 3) = "bb¨"
AramaIfadeleri1(8, 1) = "C[).-]": AramaIfadeleri1(8, 2) = "¨cc": AramaIfadeleri1(8, 3) = "cc¨"
AramaIfadeleri1(9, 1) = "D[).-]": AramaIfadeleri1(9, 2) = "¨dd": AramaIfadeleri1(9, 3) = "dd¨"
AramaIfadeleri1(10, 1) = "E[).-]": AramaIfadeleri1(10, 2) = "¨ee": AramaIfadeleri1(10, 3) = "ee¨"

Selection.HomeKey unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Forward = True
    .MatchWildcards = True
    .Text = "[0-9]@[).-]"
    .Replacement.Text = "¨qq"
    .Wrap = wdFindStop
    Do While .Execute
        If Selection.Range.ParagraphFormat.OutlineLevel <> wdOutlineLevel1 And _
        Selection.Range.ParagraphFormat.OutlineLevel <> wdOutlineLevel2 Then
            If Left(Selection.Range.Paragraphs(1).Range.Text, Len(Selection.Text)) = Selection.Text Then
                .Execute Replace:=wdReplaceOne
                Selection.MoveRight unit:=wdCharacter, Count:=2
            End If
        End If
    Loop
End With

For j = LBound(AramaIfadeleri1) To UBound(AramaIfadeleri1)
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Forward = True
        .MatchWildcards = True
        .Text = AramaIfadeleri1(j, 1)
        .Replacement.Text = AramaIfadeleri1(j, 2)
        Do While .Execute
            If Left(Trim(Selection.Paragraphs(1).Range.Text), Len(Selection.Text)) = Selection.Text Then
                .Execute Replace:=wdReplaceOne
                Selection.MoveRight unit:=wdCharacter, Count:=1
            End If
        Loop
    End With
Next j

k = 1
ReDim Arr2(1 To HedefDosya.Paragraphs.Count, 1 To 2)
For j = 1 To HedefDosya.Paragraphs.Count
    If Left(Trim(HedefDosya.Paragraphs(j).Range.Text), 3) = "¨qq" Then
        Arr2(k, 1) = j: Arr2(k, 2) = "¨qq": k = k + 1
    End If
    If Left(Trim(HedefDosya.Paragraphs(j).Range.Text), 3) = "¨aa" Then
        Arr2(k, 1) = j: Arr2(k, 2) = "¨aa": k = k + 1
    End If
    If Left(Trim(HedefDosya.Paragraphs(j).Range.Text), 3) = "¨bb" Then
        Arr2(k, 1) = j: Arr2(k, 2) = "¨bb": k = k + 1
    End If
    If Left(Trim(HedefDosya.Paragraphs(j).Range.Text), 3) = "¨cc" Then
        Arr2(k, 1) = j: Arr2(k, 2) = "¨cc": k = k + 1
    End If
    If Left(Trim(HedefDosya.Paragraphs(j).Range.Text), 3) = "¨dd" Then
        Arr2(k, 1) = j: Arr2(k, 2) = "¨dd": k = k + 1
    End If
    If Left(Trim(HedefDosya.Paragraphs(j).Range.Text), 3) = "¨ee" Then
        Arr2(k, 1) = j: Arr2(k, 2) = "¨ee": k = k + 1
    End If
Next j
For j = LBound(Arr2) To UBound(Arr2)
    If IsEmpty(Arr2(j, 1)) = True Then Arr2Lr = j - 1: Exit For
Next j
For j = 1 To Arr2Lr
    If j < Arr2Lr Then
        If Arr2(j, 2) = "¨qq" Then
            HedefDosya.Paragraphs(Arr2(j + 1, 1)).Range.InsertBefore ("qq¨")
        End If
        If Arr2(j, 2) = "¨aa" Then
            HedefDosya.Paragraphs(Arr2(j + 1, 1)).Range.InsertBefore ("aa¨")
        End If
        If Arr2(j, 2) = "¨bb" Then
            HedefDosya.Paragraphs(Arr2(j + 1, 1)).Range.InsertBefore ("bb¨")
        End If
        If Arr2(j, 2) = "¨cc" Then
            HedefDosya.Paragraphs(Arr2(j + 1, 1)).Range.InsertBefore ("cc¨")
        End If
        If Arr2(j, 2) = "¨dd" Then
            HedefDosya.Paragraphs(Arr2(j + 1, 1)).Range.InsertBefore ("dd¨")
        End If
        If Arr2(j, 2) = "¨ee" Then
            HedefDosya.Paragraphs(Arr2(j + 1, 1)).Range.InsertBefore ("ee¨")
        End If
    ElseIf j = Arr2Lr Then
        If Arr2(j, 2) = "¨qq" Then
            HedefDosya.Paragraphs(Arr2(j, 1)).Range.InsertAfter ("qq¨")
        End If
        If Arr2(j, 2) = "¨aa" Then
            HedefDosya.Paragraphs(Arr2(j, 1)).Range.InsertAfter ("aa¨")
        End If
        If Arr2(j, 2) = "¨bb" Then
            HedefDosya.Paragraphs(Arr2(j, 1)).Range.InsertAfter ("bb¨")
        End If
        If Arr2(j, 2) = "¨cc" Then
            HedefDosya.Paragraphs(Arr2(j, 1)).Range.InsertAfter ("cc¨")
        End If
        If Arr2(j, 2) = "¨dd" Then
            HedefDosya.Paragraphs(Arr2(j, 1)).Range.InsertAfter ("dd¨")
        End If
        If Arr2(j, 2) = "¨ee" Then
            HedefDosya.Paragraphs(Arr2(j, 1)).Range.InsertAfter ("ee¨")
        End If
    End If
Next j

Selection.HomeKey unit:=wdStory
With Selection.Find
    .Forward = True
    .MatchWildcards = False
    .Text = "¨¨"
    .Replacement.Text = "¨^p¨"
    .Execute Replace:=wdReplaceAll
End With

For j = 1 To 5
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Forward = True
        .MatchWildcards = False
        .Text = AramaIfadeleri1(j, 2)
        .Replacement.Text = AramaIfadeleri1(j, 2) & "^p"
        .Execute Replace:=wdReplaceAll
    End With
Next j

Selection.HomeKey unit:=wdStory
With Selection.Find
    .Forward = True
    .MatchWildcards = False
    .Text = "¨qq"
    .Replacement.Text = "¨qq^p"
    .Execute Replace:=wdReplaceAll
End With

Selection.HomeKey unit:=wdStory
With Selection.Find
    .Forward = True
    .MatchWildcards = False
    .Text = "¨qq"
    .Replacement.Text = "^&"
    Do While .Execute
        Selection.Range.Paragraphs(1).Range.Select
        Selection.ClearFormatting
        Selection.MoveRight unit:=wdCharacter, Count:=1
    Loop
End With

Selection.HomeKey unit:=wdStory
With Selection.Find
    .Forward = True
    .MatchWildcards = False
    .Text = "qq¨"
    .Replacement.Text = "^&"
    Do While .Execute
        Selection.Range.Paragraphs(1).Range.Select
        Selection.ClearFormatting
        Selection.MoveRight unit:=wdCharacter, Count:=1
    Loop
End With

For j = 1 To 5
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Forward = True
        .MatchWildcards = False
        .Text = AramaIfadeleri1(j, 2)
        .Replacement.Text = "^&"
        Do While .Execute
            Selection.Range.Paragraphs(1).Range.Select
            Selection.ClearFormatting
            Selection.MoveRight unit:=wdCharacter, Count:=1
        Loop
    End With
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Forward = True
        .MatchWildcards = False
        .Text = AramaIfadeleri1(j, 3)
        .Replacement.Text = "^&"
        Do While .Execute
            Selection.Range.Paragraphs(1).Range.Select
            Selection.ClearFormatting
            Selection.MoveRight unit:=wdCharacter, Count:=1
        Loop
    End With
Next j

Selection.HomeKey unit:=wdStory
With Selection.Find
    .Forward = True
    .MatchWildcards = False
    .Text = "qq¨"
    .Replacement.Text = "^&"
    Do While .Execute
        Selection.Range.Paragraphs(1).Range.Select
        Selection.ClearFormatting
        Selection.MoveRight unit:=wdCharacter, Count:=2
    Loop
End With

For j = 1 To 5
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Forward = True
        .MatchWildcards = False
        .Text = AramaIfadeleri1(j, 2)
        .Replacement.Text = "^&"
        Do While .Execute
            Selection.Range.Paragraphs(1).Range.Select
            Selection.ClearFormatting
            Selection.MoveRight unit:=wdCharacter, Count:=2
        Loop
    End With
Next j

For j = 1 To 5
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Forward = True
        .MatchWildcards = False
        .Text = AramaIfadeleri1(j, 3)
        .Replacement.Text = "^&"
        Do While .Execute
            Selection.Range.Paragraphs(1).Range.Select
            Selection.ClearFormatting
            Selection.MoveRight unit:=wdCharacter, Count:=2
        Loop
    End With
Next j

Selection.HomeKey unit:=wdStory
With Selection.Find
    .Forward = True
    .MatchWildcards = False
    .Text = "^p "
    .Replacement.Text = "^p"
    Do While .Execute
        Selection.Range.Paragraphs(1).Range.Select
        Selection.ClearFormatting
        Selection.MoveRight unit:=wdCharacter, Count:=1
    Loop
End With

'SORU KOK SAYISI KONTROL BASLANGICI
Selection.HomeKey unit:=wdStory
With HedefDosya.Content.Find
    .Text = "¨qq"
    .Format = False
    .Wrap = wdFindStop
    Do While .Execute
        SoruBasiKontrol = SoruBasiKontrol + 1
    Loop
End With
With HedefDosya.Content.Find
    .Text = "qq¨"
    .Format = False
    .Wrap = wdFindStop
    Do While .Execute
        SoruSonuKontrol = SoruSonuKontrol + 1
    Loop
End With
If SoruBasiKontrol <> SoruSonuKontrol Then
    MsgBox "Bu unitede " & SoruBasiKontrol - SoruSonuKontrol & " adet klasik soru olabilir" & _
            vbNewLine & "Lutfen dosyayi kontrol ediniz." & vbNewLine & _
            "Klasik soru varsa soru koku sonuna " & Chr(34) & "qq¨" & Chr(34) & " ifadesini yaziniz"
    Stop
End If
SoruBasiKontrol = 0: SoruSonuKontrol = 0
'SORU KOK SAYISI KONTROL SONU

End Sub

Sub Quiz_4_Sadelestir(ByVal Klasor As String, _
                    ByVal UniteNo2 As Long, _
                    ByVal MS_HTML As String)
Etiketler = "<html|</html|<head|</head|" & _
    "<meta|<title|</title|" & _
    "<body|</body|<p|</p|<table|</table|<img|" & _
    "<tr|</tr|<td|</td|<b|</b|<i|</i|<u|</u|<s>|</s>|" & _
    "<ul|</ul|<ol|</ol|<li|</li|" & _
    "<sub|</sub|<sup|</sup"
Dizi = Split(Etiketler, "|")

Set ADO = CreateObject("ADODB.Stream")
ADO.Charset = "utf-8"
ADO.Open
ADO.LoadFromFile MS_HTML
HTMLIlk = ADO.ReadText
ADO.Close

Do While InStr(1, HTMLIlk, vbNewLine) > 0 Or _
    InStr(1, HTMLIlk, "  ") > 0 Or _
    InStr(1, HTMLIlk, Chr(160)) > 0
    HTMLIlk = Replace(HTMLIlk, vbNewLine, " ")
    HTMLIlk = Replace(HTMLIlk, Chr(160), Chr(32))
    HTMLIlk = Replace(HTMLIlk, "  ", " ")
Loop

HTMLSon = HTMLIlk

Konum = 1
Do While InStr(Konum, HTMLIlk, "<") > 0
    Basla = InStr(Konum, HTMLIlk, "<")
    Bitir = InStr(Basla, HTMLIlk, ">")
    Temp = Mid(HTMLIlk, Basla, (Bitir - Basla) + 1)
    'Debug.Print Konum & "-" & Basla & "-" & Bitir & "-" & Temp
    For k = 0 To UBound(Dizi)
        If InStr(1, Temp, Dizi(k)) > 0 Then
            If InStr(1, Temp, "<meta") > 0 Then
                If InStr(1, Temp, "charset=utf-8") > 0 Then
                    HTMLSon = Replace(HTMLSon, Temp, "<meta http-equiv=Content-Type content=" & Chr(34) & "text/html; charset=utf-8" & Chr(34) & ">")
                Else
                    HTMLSon = Replace(HTMLSon, Temp, "")
                End If
            End If
            If InStr(1, Temp, "<body") > 0 Then
                HTMLSon = Replace(HTMLSon, Temp, "<body>")
            End If
            If InStr(1, Temp, "<p") > 0 Then
                HTMLSon = Replace(HTMLSon, Temp, "<p>")
            End If
            If InStr(1, Temp, "<img") > 0 Then
                Temp2 = "<img border=" & Chr(34) & "0" & Chr(34) & " src=" & Chr(34) & "img/"
                If InStr(1, Temp, "_quiz_MS_HTML_dosyalar/") > 0 Then
                    Temp3 = Split(Temp, "_quiz_MS_HTML_dosyalar/")(1)
                Else
                    Temp3 = Split(Temp, "_quiz_MS_HTML_files/")(1)
                End If
                If InStr(1, Temp3, Chr(34)) > 0 Then
                    Temp2 = Temp2 & Temp3
                Else
                    Temp2 = Temp2 & Temp3 & Chr(34) & ">"
                End If
                Temp2 = Replace(Temp2, "image", "quiz")
                HTMLSon = Replace(HTMLSon, Temp, Temp2)
            End If
            If InStr(1, Temp, "<table") > 0 Then
                HTMLSon = Replace(HTMLSon, Temp, "<table>")
            End If
            If InStr(1, Temp, "<tr") > 0 Then
                HTMLSon = Replace(HTMLSon, Temp, "<tr>")
            End If
            If InStr(1, Temp, "<td") > 0 Then
                If InStr(1, Temp, "rowspan") > 0 Then
                    Temp2 = "<td rowspan=" & Chr(34)
                    Temp3 = Split(Temp, "rowspan=")(1)
                    If InStr(1, Temp3, " ") > 0 Then
                        Temp4 = Split(Temp3, " ")(0)
                    Else
                        Temp4 = Split(Temp3, ">")(0)
                    End If
                    Temp2 = Temp2 & Temp4 & Chr(34)
                    If InStr(1, Temp, "colspan") > 0 Then
                        Temp2 = Temp2 & " colspan=" & Chr(34)
                        Temp3 = Split(Temp, "colspan=")(1)
                        If InStr(1, Temp3, " ") > 0 Then
                            Temp4 = Split(Temp3, " ")(0)
                        Else
                            Temp4 = Split(Temp3, ">")(0)
                        End If
                        Temp2 = Temp2 & Temp4 & Chr(34)
                    End If
                    Temp2 = Temp2 & ">"
                    Temp2 = Replace(Temp2, Chr(34) & Chr(34), Chr(34))
                    HTMLSon = Replace(HTMLSon, Temp, Temp2)
                End If
                
                If InStr(1, Temp, "colspan") > 0 Then
                    Temp2 = "<td colspan=" & Chr(34)
                    Temp3 = Split(Temp, "colspan=")(1)
                    If InStr(1, Temp3, " ") > 0 Then
                        Temp4 = Split(Temp3, " ")(0)
                    Else
                        Temp4 = Split(Temp3, ">")(0)
                    End If
                    Temp2 = Temp2 & Temp4 & Chr(34)
                    If InStr(1, Temp, "rowspan") > 0 Then
                        Temp2 = Temp2 & " rowspan=" & Chr(34)
                        Temp3 = Split(Temp, "rowspan=")(1)
                        If InStr(1, Temp3, " ") > 0 Then
                            Temp4 = Split(Temp3, " ")(0)
                        Else
                            Temp4 = Split(Temp3, ">")(0)
                        End If
                        Temp2 = Temp2 & Temp4 & Chr(34)
                    End If
                    Temp2 = Temp2 & ">"
                    Temp2 = Replace(Temp2, Chr(34) & Chr(34), Chr(34))
                    HTMLSon = Replace(HTMLSon, Temp, Temp2)
                End If
                If InStr(1, Temp, "colspan") = 0 Then
                    If InStr(1, Temp, "rowspan") = 0 Then
                        HTMLSon = Replace(HTMLSon, Temp, "<td>")
                    End If
                End If
                If InStr(1, Temp, "rowspan") = 0 Then
                    If InStr(1, Temp, "colspan") = 0 Then
                        HTMLSon = Replace(HTMLSon, Temp, "<td>")
                    End If
                End If
            End If
            Exit For
        ElseIf k = UBound(Dizi) Then
            HTMLSon = Replace(HTMLSon, Temp, "")
        End If
    Next k
    Konum = Bitir + 1
    HTMLSon = Replace(HTMLSon, "<p> </p>", "")
    HTMLSon = Replace(HTMLSon, vbNewLine & vbNewLine, " ")
    HTMLSon = Replace(HTMLSon, "  ", " ")
    HTMLSon = Replace(HTMLSon, "> <", ">" & vbNewLine & "<")
Loop

HTMLSon = Replace(HTMLSon, "img/quiz", "img/quiz_" & UniteNo2 & "_")
Temp = "": Temp2 = "": Temp3 = "": Temp4 = ""

Set ADO = CreateObject("ADODB.Stream")
ADO.Charset = "utf-8"
ADO.Open
ADO.WriteText HTMLSon
ADO.SaveToFile Klasor & UniteNo2 & "_quiz.html", 2
ADO.Close

End Sub

Sub Quiz_5_CSV_Uret(ByVal QuizHTML As String, _
            ByVal UniteNo2 As Long)

Set ADO = CreateObject("ADODB.Stream")
ADO.Charset = "utf-8"
ADO.Open
ADO.LoadFromFile QuizHTML
HTMLDoc = ADO.ReadText
ADO.Close

Konum = 1
Do While InStr(Konum, HTMLDoc, "¨qq") > 0
    Basla = InStr(Konum, HTMLDoc, "¨qq")
    Bitir = InStr(Basla + 1, HTMLDoc, "¨qq")
    If Bitir = 0 Then Bitir = Len(HTMLDoc)
    Temp = Mid(HTMLDoc, Basla, (Bitir - Basla))
    Temp = Replace(Temp, vbNewLine, " ")
    Temp = Replace(Temp, "  ", " ")
    'SORU KOKU AYIKLAMA BASLANGICI
    If InStr(1, Temp, "¨qq") > 0 Then
        Basla2 = InStr(1, Temp, "¨qq")
        Bitir2 = InStr(Basla2 + 1, Temp, "qq¨")
        Soru = Mid(Temp, Basla2, (Bitir2 - Basla2))
        Soru = Replace(Soru, "¨qq", "")
        Soru = "<p>" & Soru & "</p>"
    End If
    'SORU KOKU AYIKLAMA SONU
    'VARSA A SIKKI AYIKLAMA BASLANGICI
    If InStr(1, Temp, "¨aa") > 0 Then
        Basla2 = InStr(1, Temp, "¨aa")
        Bitir2 = InStr(Basla2 + 1, Temp, "aa¨")
        ASikki = Mid(Temp, Basla2, (Bitir2 - Basla2))
        ASikki = Replace(ASikki, "¨aa", "")
        ASikki = "<p>" & ASikki & "</p>"
        If InStr(1, ASikki, "**") > 0 Then
            DogruYanit = "a": ASikki = Replace(ASikki, "**", "")
        End If
    End If
    'VARSA A SIKKI AYIKLAMA SONU
    'VARSA B SIKKI AYIKLAMA BASLANGICI
    If InStr(1, Temp, "¨bb") > 0 Then
        Basla2 = InStr(1, Temp, "¨bb")
        Bitir2 = InStr(Basla2 + 1, Temp, "bb¨")
        BSikki = Mid(Temp, Basla2, (Bitir2 - Basla2))
        BSikki = Replace(BSikki, "¨bb", "")
        BSikki = "<p>" & BSikki & "</p>"
        If InStr(1, BSikki, "**") > 0 Then
            DogruYanit = "b": BSikki = Replace(BSikki, "**", "")
        End If
    End If
    'VARSA B SIKKI AYIKLAMA SONU
    'VARSA C SIKKI AYIKLAMA BASLANGICI
    If InStr(1, Temp, "¨cc") > 0 Then
        Basla2 = InStr(1, Temp, "¨cc")
        Bitir2 = InStr(Basla2 + 1, Temp, "cc¨")
        CSikki = Mid(Temp, Basla2, (Bitir2 - Basla2))
        CSikki = Replace(CSikki, "¨cc", "")
        CSikki = "<p>" & CSikki & "</p>"
        If InStr(1, CSikki, "**") > 0 Then
            DogruYanit = "c": CSikki = Replace(CSikki, "**", "")
        End If
    End If
    'VARSA C SIKKI AYIKLAMA SONU
    'VARSA D SIKKI AYIKLAMA BASLANGICI
    If InStr(1, Temp, "¨dd") > 0 Then
        Basla2 = InStr(1, Temp, "¨dd")
        Bitir2 = InStr(Basla2 + 1, Temp, "dd¨")
        DSikki = Mid(Temp, Basla2, (Bitir2 - Basla2))
        DSikki = Replace(DSikki, "¨dd", "")
        DSikki = "<p>" & DSikki & "</p>"
        If InStr(1, DSikki, "**") > 0 Then
            DogruYanit = "d": DSikki = Replace(DSikki, "**", "")
        End If
    End If
    'VARSA D SIKKI AYIKLAMA SONU
    'VARSA E SIKKI AYIKLAMA BASLANGICI
    If InStr(1, Temp, "¨ee") > 0 Then
        Basla2 = InStr(1, Temp, "¨ee")
        Bitir2 = InStr(Basla2 + 1, Temp, "ee¨")
        ESikki = Mid(Temp, Basla2, (Bitir2 - Basla2))
        ESikki = Replace(ESikki, "¨ee", "")
        ESikki = "<p>" & ESikki & "</p>"
        If InStr(1, ESikki, "**") > 0 Then
            DogruYanit = "e": ESikki = Replace(ESikki, "**", "")
        End If
    End If
    'VARSA E SIKKI AYIKLAMA SONU
    Call Quiz_6_Soru_Ekle(UniteNo2) 'SORUYU ARRAY'E EKLEMEK ICIN DEGISKENLERI ALT ISLEME GONDER
    Konum = Bitir 'BIR SONRAKI (DONGU) SORU ICIN NUMARAYI ARTIR
Loop

End Sub

Sub Quiz_6_Soru_Ekle(ByVal UniteNo3 As Long)
m = m + 1
ReDim Preserve ArrCSV(1 To m)

ArrCSV(m) = ArrCSV(m) & Chr(34) & SoruID & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & DersID & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & UniteNo3 & Chr(34) & ","
If DogruYanit <> "" Then
    ArrCSV(m) = ArrCSV(m) & Chr(34) & Chr(199) & "oktan Se" & Chr(231) & "meli" & Chr(34) & ","
Else
    ArrCSV(m) = ArrCSV(m) & Chr(34) & "Klasik" & Chr(34) & ","
End If
ArrCSV(m) = ArrCSV(m) & Chr(34) & Soru & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & ASikki & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & BSikki & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & CSikki & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & DSikki & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & ESikki & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & DogruYanit & Chr(34) & ","
ArrCSV(m) = ArrCSV(m) & Chr(34) & Format(Now, "yyyy-mm-dd hh:mm:ss") & Chr(34)
ArrCSV(m) = Replace(ArrCSV(m), Chr(160), " ") '160: SABIT BOSLUK, 32: KLAVYEDEN CIKAN SPACE
ArrCSV(m) = Replace(ArrCSV(m), "p> ", "p>")
ArrCSV(m) = Replace(ArrCSV(m), " </p", "</p")
ArrCSV(m) = Replace(ArrCSV(m), "<p></p>", "")
ArrCSV(m) = Replace(ArrCSV(m), "> <", "><")
ArrCSV(m) = Replace(ArrCSV(m), Chr(34) & " <", Chr(34) & "<")
ArrCSV(m) = Replace(ArrCSV(m), "> " & Chr(34), ">" & Chr(34))
ArrCSV(m) = Replace(ArrCSV(m), "<p><b> </b></p>", "")
ArrCSV(m) = Replace(ArrCSV(m), "<p><b> </b></p>", "")
ArrCSV(m) = Replace(ArrCSV(m), "<b> </b>", "")
'Debug.Print ArrCSV(m)
Soru = ""
ASikki = "": BSikki = "": CSikki = "": DSikki = "": ESikki = ""
DogruYanit = ""
SoruID = SoruID + 1

End Sub
'Bir karakterin Chr kodunu almak için Asc("a") deyimini kullanin _
Kaynak: Chat GPT 3.5 _
Kod uyarlama: Muharrem DOGANCI

25 Mart 2023 Cumartesi

Sertarikzade Kültür ve Sanat Merkezi'nde Revnakoğlu'nun İstanbul'u

Prof. Dr. Mustafa KOÇ'un çalıştığı Revnakoğlu arşivlerinde İstanbul'un detayları, kendine has anlatımıyla bu mekandan başlayıp ve İstanbul'un mekanlarına, sokaklarına varmaktadır. Sohbetler, 25.03.2023 Cumartesi'den itibaren, her haftanın cumartesi günü saat 15:00 - 17:00 arasında icra edilmiştir.

Sertarikzade Kültür ve Sanat Merkezi'ne Feshane durağından yaya yolu ile erişim aşağıdadır:

Ayvansaray Metrobüs İstasyonu'ndan yaya yolu ile erişim aşağıdadır:

12 Şubat 2023 Pazar

Excel VBA İle Kapsamlı Arama

Kaynak: https://youtu.be/2J667D3NlIQ

Koda küçük bir yama ekledim. Dosya adını, hücre adresi ile birlikte linke dönüştürdüm. Tıkladığınızda imleç, ilgili hücreye gider.

Option Explicit
Dim ws As Worksheet
Dim BaslangicSatiri As Long
Dim AranacakIfade As String
Dim FSO As Object

Public Sub Kapsamli_Ara()

Dim SecilenKlasor As String

BaslangicSatiri = 1
Set ws = Sonuc
Set FSO = CreateObject("Scripting.FileSystemObject")

With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = -1 Then
        SecilenKlasor = .SelectedItems(1) & Application.PathSeparator
    Else
        Exit Sub
    End If
End With

With ws.Cells(BaslangicSatiri, 1)
    .Parent.UsedRange.Clear
    .Offset(, 0) = "Dosya Adi"
    .Offset(, 1) = "Sayfa Adi"
    .Offset(, 2) = "Bulundugu Hucre"
    .Offset(, 3) = "Bulunan Deger"
End With

AranacakIfade = InputBox("Lutfen aranacak ifadeyi kismen veya tam olarak yaziniz", _
    "Sayin" & Environ("UserName"))

If Trim(AranacakIfade) = "" Then Exit Sub

With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
End With

KlasorAl FSO.GetFolder(SecilenKlasor)
ws.UsedRange.EntireColumn.AutoFit

With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With

ws.Activate

End Sub

Private Sub KlasorAl(Klasor)
Dim AltKlasor
Dim Dosya

For Each AltKlasor In Klasor.SubFolders
    KlasorAl AltKlasor
Next AltKlasor

For Each Dosya In Klasor.Files
    If LCase(FSO.GetExtensionName(Dosya)) Like "*xls*" Then
        DosyaIsle Dosya.Path
    End If
Next Dosya

End Sub

Private Sub DosyaIsle(ByVal IslenenDosya As String)

Dim wb As Workbook
Dim sht As Worksheet
Dim rng As Range
Dim cllSonuc As Range
Dim bulunanIlkAdres As String

Set wb = Workbooks.Open(IslenenDosya, False, True)

For Each sht In wb.Sheets
    Set rng = sht.UsedRange
    Set cllSonuc = rng.Find(AranacakIfade)
    
    If Not cllSonuc Is Nothing Then bulunanIlkAdres = _
        cllSonuc.Address(False, False)
    Do
        If cllSonuc Is Nothing Then Exit Do
        BaslangicSatiri = BaslangicSatiri + 1
        With ws.Cells(BaslangicSatiri, 1)
            ws.Hyperlinks.Add Anchor:=ws.Cells(BaslangicSatiri, 1), _
                Address:=IslenenDosya & "#'" & sht.Name & "'!" & cllSonuc.Address(False, False), _
                TextToDisplay:=wb.Name
            .Offset(, 1) = sht.Name
            .Offset(, 2) = cllSonuc.Address(False, False)
            .Offset(, 3) = cllSonuc.Value
        End With
        Set cllSonuc = rng.FindNext(cllSonuc)
    Loop While bulunanIlkAdres <> cllSonuc.Address(False, False)
Next sht
wb.Close False

End Sub
'Kaynak: _
https://youtu.be/2J667D3NlIQ
'Mehmet CANBULAT

8 Şubat 2023 Çarşamba

6.2.2023 Pazar

Yaklaşık 3 saattir bu enkazdayız..Canlılar var ses duyuyoruz..Şimdi afad ve arama kurtarma ekibi köpeklerle geldi..Vinç bekliyoruz.. ADIYAMAN

Kaynak: https://twitter.com/erkut_EzVa/status/1623541078832840704 9.2.2023 Perşembe, 7:55

rönesans rezidans ısı ölçen cihaz var yaşayan insanlar var ekipler zayıfmış lütfen destek #rönesansrezidans #hatay #roenesansrezidanshatay

Kaynak: https://twitter.com/hakikatenipek/status/1623524229378351105 9.2.2023 Perşembe, 8:33

Anadolu plakası 3.3 metre ila 5 metre arasında batıya doğru yürümüş
#deprem

Kaynak: https://twitter.com/temmuz1919/status/1623246374136324096 9.2.2023 Perşembe, 8:59

...

5 Şubat 2023 Pazar

Yine Aynı Sonuçlar

Kaçıncı tekrardır, bilinmez.

Kaynak: https://twitter.com/hogrbe/status/1621479563720118273

"Similar geometry will occur again in the 2nd half of 2023. Watch August - November!" Ağustos - Kasım 2023 aralığına dikkat çekmiş.
Kaynak: https://twitter.com/hogrbe/status/1620759032440164352

Bu Blogda Ara