izin dosyası (VBA)

[aydogankemal]

ekte gönderiğim dosyada bazı yerlerde takıldım vba kullanılarak verileri başka bir tabloya aktarmak istiyorum açıklama dosyanın içerisinde.
Teşekkür ederim

 

[Ferhat Pazarçevirdi]

 Sub aktar()
Set shb = Sheets("BİLGİLER")
Set shl = Sheets("LİSTE")
sonl = shl.Cells(65532, 1).End(xlUp).Row
For i = 1 To 7
shl.Cells(sonl + 1, i) = shb.Cells(i + 1, 2)
Next i
Set shb = Nothing
Set shl = Nothing
End Sub

Kolay gelsin

 

[aydogankemal]

kardeş teşekkür ederim, ama bir sorum olacak cevabını örnek dosyaya bakarak mı yazdın yoksa standart aktar bilgisimi. ben verdiğin komutu çalıştıramadım da
yinede teşekkür ederim

 

[Ferhat Pazarçevirdi]

Bizzat sizin dosyanız için ...

Sayfanıza bir adet buton koyun ve bu kodu ona bağlayın. Sonra butona basın. Liste sayfasına veriniz aktarılmış olacaktır.

Süre için de aşağıdaki formul işinize yarayacaktır.

=(B5+B7-(B4+B6))*24

 

[aydogankemal]

Online olmanız çok iyi ama ben yine yapamadım

butona bağladım şöyle bir uyarı kutusu çıkıyor
Compile error:
Expected end sub

Private Sub CommandButton2_Click() ( bu satır ise sarıya boyalı nerde hata yapıyorum)
Sub aktar()
Set shb = Sheets("BİLGİLER")
Set shl = Sheets("LİSTE")
sonl = shl.Cells(65532, 1).End(xlUp).Row
For i = 1 To 7
shl.Cells(sonl + 1, i) = shb.Cells(i + 1, 2)
Next i
Set shb = Nothing
Set shl = Nothing
End Sub

 

[Ferhat Pazarçevirdi]

ikinci satırı "Sub aktar()" komple silin ve yeniden deneyin. Kopyalama yaparken sub ile başlayan satırı almamanız lazımdı.

 

[hüsün]

Private Sub CommandButton2_Click() ( bu satır ise sarıya boyalı nerde hata yapıyorum)
Sub aktar() bu satırın başına ' tırnak işaretini yerleştirin ya da bu satırı silin

 

[aydogankemal]

Sabrınıza ve yardımınıza teşekkür ederim
tam da istediğim gibi oldu
:icelim:
:hihoho: