Google E-Tablo Bilgilerini Bilgisayarımızdaki Bir Excel Dosyasına Online Olarak Çekmek Mümkün mü?

[Muhammet Okumuş]

Haluk Bey kodunuzu dosyama uyarladım.

 

[Haluk]

Haluk Bey kodunuzu dosyama uyarladım.

Videonuzu izledim...

Gördüğüm kadarıyla, konu hakkındaki "uyduruk çalışmam" yeni bir çığır açmış ....

Video'da var mıydı emin değilim, ama hani dizi filmlerin başında/sonunda film/set ekibi, ışıkçı, lojistik, kameraman ..... vb emeği geçenlerin isimleri yazar ya ... keşke öyle bir bölüm de yapıp, "..... bu dosyayı hazırlarken www.excel.web.tr sitesinden yararlanılmıştır" diye bir kısım olsaydı.

Videoyu izleyen meraklılarına siteyi de tanıtmış olurdunuz...

.

 

[Muhammet Okumuş]

Evet öğretmenim ben. Uzaktan eğitim sürecinde öğrencilere test gönderiyorum ve cevapları Google Forma işaretlemelerini istiyorum. Testi kim yapmış, kaç almış tek tıkla görebiliyorum. Ticari amacım yok.

 

[Muhammet Okumuş]

Başka bir sitede de konu geçmişti.

 

[Haluk]

Başka bir sitede de konu geçmişti.

Bilgi ve etik davranışınız için teşekkür ederim.

.

 

[merrrakli]

"ImportData" isimli prosedürü aşağıdaki şekliyle revize ettim;

Sub ImportData()
    Dim xSh As Worksheet, NoData As Byte, NoA As Byte, LastCol As Byte, iRow As Byte, iRow2 As Byte, j As Byte
 
    NoData = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
 
    For Each xSh In Sheets
        If xSh.Name <> "Data" Or xSh.Name <> "Giris" Then
            NoA = Sheets(xSh.Name).Range("A" & Rows.Count).End(xlUp).Row
            LastCol = Sheets(xSh.Name).Cells(2, Columns.Count).End(xlToLeft).Column
            For iRow = 3 To NoA
                For iRow2 = 2 To NoData
                    If Sheets("Data").Range("C" & iRow2) = Sheets(xSh.Name).Range("C" & iRow) Then
                        For j = 4 To LastCol
                            tempData = Sheets("Data").Cells(iRow2, j)
                            Sheets(xSh.Name).Cells(iRow, j) = IIf(tempData = "Boş", "", tempData)
                        Next
                    End If
                Next
            Next
        End If
    Next
End Sub

Teşekkür ederim.

Bazen gelen verilerde Türkçe karakterler bozuk geliyor. Bunun için bir yorumunuz var mı?
Bu durumda Boş şeklinde gelen veri BoÅŸ şeklinde geliyor bunuda anladığım kadarıyla silmiyor.

 

[merrrakli]

Başka bir sitede de konu geçmişti.Ekli dosyayı görüntüle 217122

Teşekkür ederim.
Onuda hemen inceleyip takip ediyorum.
Bu arada o soruyu soran ben değilim. Ortak yönümüz öğretmen olmak olabilir

 

[Haluk]

Teşekkür ederim.

Bazen gelen verilerde Türkçe karakterler bozuk geliyor. Bunun için bir yorumunuz var mı?
Bu durumda Boş şeklinde gelen veri BoÅŸ şeklinde geliyor bunuda anladığım kadarıyla silmiyor.

Ekli dosyayı görüntüle 217137

Muhtemelen karşı tarafın kullandığı karakter setiyle ilgili bir durum.

Örnek dosya var mı?

.

 

[okan32]

Haluk hocam ve Muhammet bey emekleriniz için çok teşekkürler muammet bey dosyayı paylaşabilir misiniz faydalanalım inşaalah

 

[Muhammet Okumuş]

Video'da var mıydı emin değilim, ama hani dizi filmlerin başında/sonunda film/set ekibi, ışıkçı, lojistik, kameraman ..... vb emeği geçenlerin isimleri yazar ya ... keşke öyle bir bölüm de yapıp, "..... bu dosyayı hazırlarken www.excel.web.tr sitesinden yararlanılmıştır" diye bir kısım olsaydı.

Videoyu izleyen meraklılarına siteyi de tanıtmış olurdunuz...

Evet aslında çok iyi olurdu. Daha önceden yapmıştım.

Çok aceleye getirdim dosyayı. Ama dosya paylaşımı için buranın adresini verdim.

 

[okan32]

Teşekkür ederim Muhammet bey