Yapay Zekanın Excel web tr ye etkisi

[Asri]

Ben de çok kullanır oldum. Önce araştırırdım. Ama artık gerek kalmıyor. Bundan 15-20 yıl sonraki seviyeyi düşünemiyorum.

Yine araştırıyorum ama yapay zeka aracılığı ile.
Bilmediği şeyi kendisi webten araştırıyor ve damıtılmış bilgi getiriyor.
Kullanım ve teknik döküman pdf lerini inceliyor ve istediğin bilgiyi getiriyor.

Normal de sitesine gidiyorsun pdf ie arıyorsun şansın varsa google aramasında çıkıyor tıklayıp açıp pdf içindeki bilgiyi bulmaya çalışıyorsun.
O da doğru pdf ise şanslısın

Geriye sadece kendi bilgilerini kullanarak bilginin doğruluğunu yada başka yapay zekalara sorarak ortak bilgiye ulaşmak kalıyor.

 

[Muhammet Okumuş]

Çok güzel. Sanki karşında insan varmış gibi hissettiriyor. Burda hata verdi diyorum haklısın diyor. Şimdi kesin çözüm diyor. Bazen 10'u buluyor kesin çözüm dediği. Ama excel.web.tr etkisinin büyük olacağını daha bir çok insanın yapay zekadan yardım almayı bilmediğini düşünüyorum. Anket yapılsa üyelerin %70ten fazlasının yapay zekayı hiç kullanmadım seçeneğini işaretleyeceğine eminim.

 

[RBozkurt]

Google Gemini 2.5 Pro sürüm normal sürüm ile ciddi farkı var. Aynı şekilde ChatGPT 5. Her ikisinide kullanıyorum bana göre Gemini daha önde.
Ücretsiz sürümlerde alınan sonuçlar ile ücretli sürüm arasında dağlar var.

Örnek makro:

Spoyler: ChatGPT

Sub DosyaTasima_Uzantisiz()

    Dim satir As Long
    Dim sonSatir As Long
    Dim dosyaAdi As String
    Dim kaynakAdres As String
    Dim hedefAdres As String
    Dim tamKaynakYol As String
    Dim tamHedefYol As String
    Dim mevcutDosya As String

    ' Son satırı belirle
    sonSatir = Cells(Rows.Count, 1).End(xlUp).Row
   
    ' İlk satır başlık olduğu için 2. satırdan başla
    For satir = 2 To sonSatir
        ' Dosya adını, kaynak ve hedef adresleri al
        dosyaAdi = Trim(Cells(satir, 1).Value)
        kaynakAdres = Trim(Cells(satir, 2).Value)
        hedefAdres = Trim(Cells(satir, 3).Value)
       
        ' Kaynak ve hedef adresin sonunda ters eğik çizgi yoksa ekle
        If Right(kaynakAdres, 1) <> "\" Then
            kaynakAdres = kaynakAdres & "\"
        End If
        If Right(hedefAdres, 1) <> "\" Then
            hedefAdres = hedefAdres & "\"
        End If
       
        ' Kaynak klasörde bu dosya adına uygun herhangi bir dosya var mı?
        mevcutDosya = Dir(kaynakAdres & dosyaAdi & ".*") ' Herhangi bir uzantıyı bul
       
        ' Eğer dosya bulunursa, tam yolları belirle
        If mevcutDosya <> "" Then
            tamKaynakYol = kaynakAdres & mevcutDosya
            tamHedefYol = hedefAdres & mevcutDosya
           
            ' Dosyayı taşı
            FileCopy tamKaynakYol, tamHedefYol
            Kill tamKaynakYol ' Orijinal dosyayı sil
        Else
            MsgBox "Dosya bulunamadı: " & kaynakAdres & dosyaAdi, vbExclamation
        End If
    Next satir
   
    MsgBox "Dosya taşıma işlemi tamamlandı.", vbInformation

End Sub

Spoyler: Gemini 2.5 PRO

Sub DosyaTasima_Uzantisiz_Revize()

    ' --- Değişken Tanımlamaları ---
    Dim ws As Worksheet
    Dim sonSatir As Long
    Dim i As Long
    Dim dosyaAdi As String
    Dim kaynakKlasor As String
    Dim hedefKlasor As String
    Dim bulunanDosyaAdi As String
    Dim tamKaynakYol As String
    Dim tamHedefYol As String
   
    Dim fso As Object ' FileSystemObject için
    Dim basariSayac As Long
    Dim hataMesajlari As String
   
    ' --- Ön Hazırlık ---
    ' Kodun daha hızlı çalışması için ekran güncellemelerini kapat
    Application.ScreenUpdating = False
   
    ' FileSystemObject'i oluştur. Dosya işlemleri için daha güvenilirdir.
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    ' Aktif çalışma sayfasını belirle
    Set ws = ThisWorkbook.ActiveSheet
   
    ' Başlangıç değerlerini sıfırla
    basariSayac = 0
    hataMesajlari = ""
   
    ' --- Ana İşlem Döngüsü ---
    ' A sütunundaki son dolu satırı bul
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
   
    ' Başlık satırını atlayarak 2. satırdan başla
    For i = 2 To sonSatir
        ' Hücrelerdeki verileri al ve olası boşlukları temizle
        dosyaAdi = Trim(ws.Cells(i, 1).Value)
        kaynakKlasor = Trim(ws.Cells(i, 2).Value)
        hedefKlasor = Trim(ws.Cells(i, 3).Value)
       
        ' Eğer dosya adı boşsa bu satırı atla
        If dosyaAdi = "" Then GoTo SonrakiSatir
       
        ' Klasör yollarının sonunda "\" karakteri olduğundan emin ol
        If Right(kaynakKlasor, 1) <> "\" Then kaynakKlasor = kaynakKlasor & "\"
        If Right(hedefKlasor, 1) <> "\" Then hedefKlasor = hedefKlasor & "\"
       
        ' 1. ADIM: Kaynak klasör var mı?
        If Not fso.FolderExists(kaynakKlasor) Then
            hataMesajlari = hataMesajlari & vbCrLf & i & ". Satır: Kaynak klasör bulunamadı -> " & kaynakKlasor
        Else
            ' 2. ADIM: Dosyayı herhangi bir uzantıyla bul
            bulunanDosyaAdi = Dir(kaynakKlasor & dosyaAdi & ".*")
           
            If bulunanDosyaAdi <> "" Then
                tamKaynakYol = kaynakKlasor & bulunanDosyaAdi
               
                ' 3. ADIM: Hedef klasör var mı? Yoksa oluştur.
                If Not fso.FolderExists(hedefKlasor) Then
                    fso.CreateFolder hedefKlasor
                End If
               
                tamHedefYol = hedefKlasor & bulunanDosyaAdi
               
                ' 4. ADIM: Dosyayı taşı
                On Error Resume Next ' Taşıma sırasında hata olursa yakala
                fso.MoveFile tamKaynakYol, tamHedefYol
                If Err.Number <> 0 Then
                    hataMesajlari = hataMesajlari & vbCrLf & i & ". Satır: Dosya taşınamadı! -> " & tamKaynakYol
                    Err.Clear
                Else
                    basariSayac = basariSayac + 1
                End If
                On Error GoTo 0
            Else
                hataMesajlari = hataMesajlari & vbCrLf & i & ". Satır: Dosya bulunamadı -> " & kaynakKlasor & dosyaAdi
            End If
        End If
       
SonrakiSatir:
    Next i
   
    ' --- Sonuç ve Raporlama ---
    ' Ekran güncellemelerini tekrar aç
    Application.ScreenUpdating = True
    Set fso = Nothing
   
    Dim rapor As String
    rapor = "İşlem Tamamlandı!" & vbCrLf & vbCrLf & _
            "Başarıyla Taşınan Dosya Sayısı: " & basariSayac & vbCrLf & _
            "İşlenen Toplam Satır Sayısı: " & sonSatir - 1
           
    If hataMesajlari <> "" Then
        rapor = rapor & vbCrLf & vbCrLf & "--- Hatalar ---" & hataMesajlari
        MsgBox rapor, vbExclamation, "Taşıma Raporu"
    Else
        MsgBox rapor, vbInformation, "Taşıma Raporu"
    End If

End Sub

 

[hasankardas]

deepseek ,chatgpt,copilot ve gemini bunların hepsini kullanıyorum.. copilot kodlama da daha sağlıklı sonuçlar verdiğini fark etttim. deepseek doğru komutlar yazıldığında en hızlı sonucu veriyor. belki komut verme dilimdeki kelimeler ile iyi anlaşıyoruzdur tüm yapay zekanın özellikle kodlama da yaptığı dünyanın her dilindeki veriyi süzüp bize getirmesi. kullanmasını bilene inanılmaz birşey diyorum. sosyal medya forum sitelerinin tahtını bitirmişti, yapay zeka da benzer görevi yapacaktır. kullanımda dezavantajları var mı var, örneğin biraz excel bilgisi bilmiyorsanız excel de olmayan fonksyonları size önerebiliyor..saatdeğeri diye bir fonksiyon önermişti. teknolojiyi kullanmak gerekiyor. matbaa ile dünya farklı bir evreye evrilmişti bakalım yapay zeka ile nereye gidecek şu bir gerçek ki bir çok meslek dalı yok olup gidecek..

 

[Hüseyin]

Perplexity nin Comet tarayıcısını tavsiye ederim.
Tarayıcı içinde ajan çalıştırabiliyotsunuz.
Ücretsiz sürümde çok düzgün çalışıyor.
Ücretli de daha derin araştırmalar falan yapıyor.

Dün Linkedin de bir paylaşıma şöyle şöyle bir çeyap yaz dedim. Benim basit tarif ettiğim yanıtı güzelce üretti, yanıt kutusuna ekledi ve gönder butonuna tıklayıp gönderdi.

İkinci bir örnek;
Bir etkinliğe katılan firmaların çeşitli bilgilerinin olduğu bir sayfada. Bu katılımcı firmaların email adreslerini liste olarak ver dedim. Saniyesinde email adreslerini listeledi.