Listeye veri eklemek.

[TreXiizMeisTeR]

Bunun makrosuz bi yöntemi var mı bilmiyorum ama sanırım makroyla olur.
Öncelikle şunu sorayım. Elimde bir liste var. Bu listenin eleman sayısı örneğin 5 olsun. İstediğim şey, başka bi sayfada yazdığım bir veriyi o listeye atıcak. Mesela, 5 tane veri varken, listenin olduğu sayfada A6 hücresine yazıcak. Bu makrosuz ya da makrolu farketmez.

Şimdiden teşekkür ederim.

 

[Orion1]

Bunun makrosuz bi yöntemi var mı bilmiyorum ama sanırım makroyla olur.
Öncelikle şunu sorayım. Elimde bir liste var. Bu listenin eleman sayısı örneğin 5 olsun. İstediğim şey, başka bi sayfada yazdığım bir veriyi o listeye atıcak. Mesela, 5 tane veri varken, listenin olduğu sayfada A6 hücresine yazıcak. Bu makrosuz ya da makrolu farketmez.

Şimdiden teşekkür ederim.

Sayfa2 deki b2 hücresindeki değeri sayfa1'de a sütununa ardışık yazar.

Sub kaydet()
Sheets("Sayfa1").Select
sonsat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sonsat, "A").Value = Sheets("Sayfa2").Range("B2").Value
End Sub

 

[TreXiizMeisTeR]

Sayfa2 deki b2 hücresindeki değeri sayfa1'de a sütununa ardışık yazar.

Sub kaydet()
Sheets("Sayfa1").Select
sonsat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sonsat, "A").Value = Sheets("Sayfa2").Range("B2").Value
End Sub

Teşekkür ederim hocam sağolasın

 

[Orion1]

Teşekkür ederim hocam sağolasın

Rica ederim.
İyi çalışmalar.

 

[TreXiizMeisTeR]

Bi de, çok lazım deil ama, sayfa ismini de mesela a2 de 5 ytazıyosa sayfa5'e, a yazıyosa sayfaa ya ekleyebiliyo mu?