Bir hucredeki veri (tarih) baska bir calisma sayfasina ?

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[blueman]

Ekteki örneği inceleyin.

Levent bey kaydet dugmesine tiklayinca sadece daha önce acilmis listelere kayit yapma özelligi ekleyebilirmiyiz mesela ANKARA 10 JUN 05 diyor kaydet diyince ANKARA10JUN05 yoksa O TARIHTE UCUS BULUNAMADI mesaji gelse

 

[Levent Menteşoğlu]

Butona bağlı kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:f4fc376c16]Sub kaydet()
On Error GoTo 10
Set s1 = Sheets("Bilet")
For a = 11 To s1.[c65536].End(3).Row
ad = s1.Cells(a, "c") & Format(s1.Cells(a, "i"), "ddmmmyy")
sonsat = Sheets(ad).[c65536].End(3).Row
Sheets(ad).Cells(sonsat + 1, "b") = sonsat - 2
Sheets(ad).Cells(sonsat + 1, "c") = [d6]
Next
Exit Sub
10 MsgBox ad & " İSİMLİ SAYFA ADI BULUNAMADI"
End Sub
[/vb:1:f4fc376c16]

 

[blueman]

Butona bağlı kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:44d27181ec]Sub kaydet()
On Error GoTo 10
Set s1 = Sheets("Bilet")
For a = 11 To s1.[c65536].End(3).Row
ad = s1.Cells(a, "c") & Format(s1.Cells(a, "i"), "ddmmmyy")
sonsat = Sheets(ad).[c65536].End(3).Row
Sheets(ad).Cells(sonsat + 1, "b") = sonsat - 2
Sheets(ad).Cells(sonsat + 1, "c") = [d6]
Next
Exit Sub
10 MsgBox ad & " İSİMLİ SAYFA ADI BULUNAMADI"
End Sub
[/vb:1:44d27181ec]

Kodu bu sekilde degistirince isimleri aktarmiyor. Mesaji dogru veriyor dosyayi bulunca listeye numara veriyor ama isimleri aktarmiyor

 

[blueman]

Butona bağlı kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:82b054f9b2]Sub kaydet()
On Error GoTo 10
Set s1 = Sheets("Bilet")
For a = 11 To s1.[c65536].End(3).Row
ad = s1.Cells(a, "c") & Format(s1.Cells(a, "i"), "ddmmmyy")
sonsat = Sheets(ad).[c65536].End(3).Row
Sheets(ad).Cells(sonsat + 1, "b") = sonsat - 2
Sheets(ad).Cells(sonsat + 1, "c") = [d6]
Next
Exit Sub
10 MsgBox ad & " İSİMLİ SAYFA ADI BULUNAMADI"
End Sub
[/vb:1:82b054f9b2]

Bu kodu yazdigimizda isimleri isimleri aktarmiyor. Mesaji dogru veriyor dosyayi bulunca listeye numara veriyor ama isimleri aktarmiyor. Duzeltmemis icin nereler de degisiklik yapmamiz gerekir? degistirdigim dosyayi eke aldim