Run-Time Error "1004" Hatası

[ahmed_ummu]

Merhaba aakadaşlar.

Sayfa1 A1 hücresinde 04.10.2021,
Sayfa1 A2 hücresinde 31.10.2021

Tarihleri var. Yapmak istediğim ise tarihlerin günleri ile 04-31 döngü kurup, sayfa2 nin A5 hücresinden başlayacak sağa doğru 4-5-6-7-...31 ' kadar yazdırmak. Aşağıdaki kod ile Run-Time Error "1004" Hatası veriyor. Yardımcı olursanız sevinirim.

Bir de 4 adet listbox var listbox8,9,10,11 bunlara hepsine birden veri sayfası B2 hücresinden döngü ile verileri aldırabilir miyiz.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Rows(5).ClearContents
    
    sut = 1
    For i = S1.Range("A1") To S1.Range("A2")
        S2.Cells(5, sut) = Day(i)
        sut = sut + 1
    Next i
    
End Sub

 

[ahmed_ummu]

Merhaba,

Deneyiniz.

Sub test()

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
   
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
   
    S2.Rows(5).ClearContents
   
    sut = 1
    For i = S1.Range("A1") To S1.Range("A2")
        S2.Cells(5, sut) = Day(i)
        sut = sut + 1
    Next i
   
End Sub

Teşekkürler Ömer Faruk bey

 

[Ömer]

Rica ederim. Yalnız sadece Ömer.
Sayın @ÖmerFaruk ile karıştırdınız sanırım.

 

[ahmed_ummu]

Merhaba,

Deneyiniz.

Sub test()

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
 
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
 
    S2.Rows(5).ClearContents
 
    sut = 1
    For i = S1.Range("A1") To S1.Range("A2")
        S2.Cells(5, sut) = Day(i)
        sut = sut + 1
    Next i
 
End Sub

Ömer bey merhaba.

Ben örnek dosyadaki bilgilere göre vermiştim. Örnek dosyada çalışıyor fakat benim dosyama uyarlayamadım. Birleştirilmiş hücre için bu işlemi uygulayamıyoruz diye hata veriyor. Örnek dosyamı göndersem, bakabilir misiniz. İşlemin yapılacağı alanda birleştirilmiş hücre yok.

Tarihler "data1" sayfasında L5 ve L6 hücrelerinde, İşlem yapılacak sayfa "tablo" sayfası D5 ten itibaren sağa doğru döngünün son değerine kadar yazacak.

Kodlar ise Userform10 un içindeki Multipage nin 3. sekmesi "Ekders Ücreleri İşlemi" nin içindeki multipage nin 1 sekmesindeki commandbutton7 yer yazılacak. Yardımcı olursanız sevinirim.

 

[Ömer]

Deneyiniz.

Private Sub CommandButton78_Click()

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
    
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
    
    S2.Range("D5:AO5").ClearContents
    
    sut = 4
    For i = S1.Range("L5") To S1.Range("L6")
        S2.Cells(5, sut) = Day(i)
        sut = sut + 1
        If sut = 41 Then Exit Sub
    Next i

End Sub

 

[ahmed_ummu]

Deneyiniz.

Private Sub CommandButton78_Click()

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
   
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
   
    S2.Range("D5:AO5").ClearContents
   
    sut = 4
    For i = S1.Range("L5") To S1.Range("L6")
        S2.Cells(5, sut) = Day(i)
        sut = sut + 1
        If sut = 41 Then Exit Sub
    Next i

End Sub

Çok teşekkür ederim Ömer bey.

 

[ahmed_ummu]

Deneyiniz.

Private Sub CommandButton78_Click()

    Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
   
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
   
    S2.Range("D5:AO5").ClearContents
   
    sut = 4
    For i = S1.Range("L5") To S1.Range("L6")
        S2.Cells(5, sut) = Day(i)
        sut = sut + 1
        If sut = 41 Then Exit Sub
    Next i

End Sub

Merhaba Ömer bey.

Tarihi 04.10.2021 - 03.11.2021 tarihlerini girdiğimde 31 den sonrasını yazmıyor. Bazı aylar bir sonraki aydan bir iki gün alabiliyoruz. Yardımcı olursanız sevinirim.

 

[Ömer]

Kodlarda bu şekilde bir şart yok. Son sütun "AO" sütunudur. Bu yüzden 41. sütun dan sonra yazma şartı var.
Ben denedim yazıyor. Bir sorun yok. Denediğiniz dosyayı ekleyiniz.

 

[ahmed_ummu]

Kodlarda bu şekilde bir şart yok. Son sütun "AO" sütunudur. Bu yüzden 41. sütun dan sonra yazma şartı var.
Ben denedim yazıyor. Bir sorun yok. Denediğiniz dosyayı ekleyiniz.

Örnek dosya ekte.

Tarihler "data1" sayfasının L5 ve L6 hücrelerinde. Kodların olduğu buton ise Userform10 un içindeki multipage nin 3 sekmesindeki multipagenin 2 sekmesinde bulunan Puantaj Oluştur isimli butonda.

 

[Ömer]

Örnek dosya ekte.

Tarihler "data1" sayfasının L5 ve L6 hücrelerinde. Kodların olduğu buton ise Userform10 un içindeki multipage nin 3 sekmesindeki multipagenin 2 sekmesinde bulunan Puantaj Oluştur isimli butonda.

Ben kodları;

Mult.1 de "yeni dosya aç" yani CommandButton78_Click yazmıştım. Eklediğiniz dosyanızda da kodlarda orada zaten. Tekrar denedim, 78 nolu buton istediğinizi yapıyor.

 

[ahmed_ummu]

Ben kodları;

Mult.1 de "yeni dosya aç" yani CommandButton78_Click yazmıştım. Eklediğiniz dosyanızda da kodlarda orada zaten. Tekrar denedim, 78 nolu buton istediğinizi yapıyor.

bi daha bakıyım

 

[ahmed_ummu]

bi daha bakıyım

Kusura bakmayın evet çalışıyor. Ben dosyaları karıştırdım heralde.