- Katılım
- 5 Kasım 2005
- Mesajlar
- 42
Sub b()
adr = Range("a1")
Workbooks.Open "C:\Documents and Settings\MUSTAFA\Desktop\Audio\" & adr
Workbooks(adr & ".xls").Sheets(1).Select = d
Set s1 = d
Set s2 = Sheets("1")
sat = [s2!a1:a65536].Row
say = WorksheetFunction.CountA(s1.[a3:a65536]) + 1
For A = 1 To 10
s1.Cells(say, A) = s2.Cells(sat, A).Value
Next
End Sub
sayın hocalarım sayın arkadaşlar bu konuda yardımcı olursanız sevinirim
adr isimli sayfaya sheets1 isimli sayfadan aktarma yapmak istiyorum
lütfen aynı isimde bir şey varsa onu güncelleyebilirmi
şimdiden teşekkürler
adr = Range("a1")
Workbooks.Open "C:\Documents and Settings\MUSTAFA\Desktop\Audio\" & adr
Workbooks(adr & ".xls").Sheets(1).Select = d
Set s1 = d
Set s2 = Sheets("1")
sat = [s2!a1:a65536].Row
say = WorksheetFunction.CountA(s1.[a3:a65536]) + 1
For A = 1 To 10
s1.Cells(say, A) = s2.Cells(sat, A).Value
Next
End Sub
sayın hocalarım sayın arkadaşlar bu konuda yardımcı olursanız sevinirim
adr isimli sayfaya sheets1 isimli sayfadan aktarma yapmak istiyorum
lütfen aynı isimde bir şey varsa onu güncelleyebilirmi
şimdiden teşekkürler