Makina yükleme konusunda yardım

[mozus]

Slm arkadaşlar konu benimde çok ilgimi çekti, ama dosyaya ulaşamadım sanırım link kırık.yardımcı olursanız teşekkür ederim..

 

[hamitcan]

Arşivimde bulduğum örneği ekliyorum.

Private Sub CommandButton1_Click()
x = ActiveCell.Row
son = Sheets("" & Cells(x, 1) & "").[a65536].End(3).Row + 1
Sheets("" & Cells(x, 1) & "").Rows(son) = Rows(x).Value
End Sub

 

[vinelock]

dosyayı açamıyorum

 

[bedersu]

Sayın vinelock,
#22 numaralı mesajda dosya açılıyor.