excelde sütunları ayrı ayrı masaüstüne kayıtettirmek

[buurakengin]

1: sayfanın adı cari.
2: bu sayfada 235 sütun var toplamda.
3: örnek olarak 235. sütunu silip masa üstündeki Burak klasörüne EXCEL olarak kayıt etmek istiyorum.(her excelin ismi silinen sütunun 3. satırı olmasını istiyorum)
4: bu işlem 4. sütuna kadar aynı devam edecek ve baştan değil 235. sütundan geriye doğru gidecek.

Emekleriniz için teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu bir modüle kopyalayıp çalıştırınız.
Bende bir buçuk dakika sürdü. Biraz zaman alıyor bilginize.

Sub test()
    Dim Bak As Integer
    Dim wBook As Workbook
    Dim SonSatir As Long

    Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets("Cari")
        For Bak = 235 To 4 Step -1
            Set wBook = Workbooks.Add
            SonSatir = .Cells(Rows.Count, Bak).End(xlUp).Row
            wBook.Worksheets(1).Range("A1", Cells(SonSatir, "A").Address).Value = .Range(Cells(1, Bak).Address, Cells(SonSatir, Bak).Address).Value
            wBook.Close True, Environ("USERPROFILE") & "\Desktop\Burak\" & .Cells(3, Bak)
        Next
        .Range("E:IA").ClearContents
    End With
    Application.ScreenUpdating = True
    MsgBox "Tamamlandı."
End Sub

 

[buurakengin]

Emeğinize sağlık aşağıdaki satırda verdi hocam

SonSatir = .Cells(Rows.Count, Bak).End(xlUp).Row

 

[Muzaffer Ali]

Hata mı verdi?

Dosyanızı ekleyin kontrol edeyim.
Dosyanızı dosya.co gibi bir site ile paylaşabilirsiniz.

 

[buurakengin]

https://dosya.co/liqwlrqo1qk3/test.xlsx.html

 

[Muzaffer Ali]

Eklediğiniz dosyada

1- Cari adlı bir sayfa yok
2- 235 tane sütun yok.
3- 3. satırdaki değerlerin hepsi aynı. Her bir dosyaya 3. satırdaki değer isim olarak verileceğine göre hepsinin birbirinden farklı olması gerekir.


Sanırım yanlış dosya eklediniz.

 

[buurakengin]

Ho

Eklediğiniz dosyada

1- Cari adlı bir sayfa yok
2- 235 tane sütun yok.
3- 3. satırdaki değerlerin hepsi aynı. Her bir dosyaya 3. satırdaki değer isim olarak verileceğine göre hepsinin birbirinden farklı olması gerekir.


Sanırım yanlış dosya eklediniz.

Hocam bunu örnek olarak attim tam olarak ne istedigim anlasilsin diye. Buradan ilerlersek tablo isimleri buradaki tarihler olacak

 

[Muzaffer Ali]

Gerçek dosyanızdan tamamen farklı yada daha sonra gerçek dosyama göre kodları değiştiririm diyerek gerçek sorunuzdan farklı soru sormayın.
Böyle yapınca bakın konu ne kadar uzuyor.

İlk gönderdiğim kodda hiçbir hata yok gayet güzel çalışıyor.

Eğer gönderdiğim kodu kendi dosyanıza uyarlayabiliyorsanız uyarlayın.
Yapamazsanız gerçek dosyanızdan farklı olmayan bir örnek dosya hazırlayıp ekleyin yada gerçek dosyanızı ekleyin ve sorunuzu da gerçek dosyanıza uygun olarak sorun.

 

[dost]

@buurakengin

Aynı soruyu 100 satirlik sutunu 100.satirdan baslayarak geriye dogru ayri ayri kaydetmek başlıkta da sormuşsunuz.