hücreye veri girme

[bt0606]

örneğin a-1 sütununa rakam girdiğimde bunu b-1 sütununa atsın ama a-1 her giriğim rakamı b-1, aynı a-1 e rakam girdiğim de bunu b-2 ye b-3 e diye devam edebilirmi yani ben rakamları hep a-1 e yazayım o b sütununa sırayla devam etsin b-1 b-2 b-3 diye olabilirmi şimdiden cevaplar için tşk ederim

 

[bt0606]

biraz zor bi soru sordum galiba kimse cvp vermemiş

 

[temizerb]

Dosya Ekte

biraz zor bi soru sordum galiba kimse cvp vermemiş

merhaba,

ek'te dosyayı incelerseniz istediğiniz bu şekilde bir uygulamamı öğrenebilirmiyim.

 

[YUSUF44]

Sanıyorum öyle istemiyor arkadaş.

A1'e 10 yazdığında B sütunundaki ilk boş hücreye 10 yazılsın, sonra A1'e başka bir şey yazıldığında sonraki boş hücreye yazılsın istiyor.

 

[bt0606]

Sanıyorum öyle istemiyor arkadaş.

A1'e 10 yazdığında B sütunundaki ilk boş hücreye 10 yazılsın, sonra A1'e başka bir şey yazıldığında sonraki boş hücreye yazılsın istiyor.

yusuf arkadaşımın dediği gibi
ek için tşk ederim ama istediğim a-1 10 yazım b-1 atsın a-1 e tekrar 20 yazdığım da b-2 ye yazsın gibi

 

[temizerb]

yusuf arkadaşımın dediği gibi
ek için tşk ederim ama istediğim a-1 10 yazım b-1 atsın a-1 e tekrar 20 yazdığım da b-2 ye yazsın gibi

Arkadaşlar açıkçası sanmıyorum ancak belki makro ile yapılabilir ama onun içinde uzman arkadaşların yardımcı olması lazım

 

[Orion1]

Kod çalışma sayfasının modülüne yazıldı.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
sat = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(sat, "B").Value = Target.Value
End Sub

 

[YUSUF44]

ilave olarak kodu aşağıdaki gibi düzenlerseniz, sürekli A1'i seçer, yani A1'e veri girdiğinizde B'deki boş hücreye attıktan sonra imleç A1 hücresine gelir, siz ayrıca uğraşmazsınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
On Error Resume Next
sat = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(sat, "B").Value = Target.Value
[COLOR="Red"][B]Range("a1").Select[/B][/COLOR]
End Sub

 

[bt0606]

Kod çalışma sayfasının modülüne yazıldı.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
sat = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(sat, "B").Value = Target.Value
End Sub

çok tşk ederim aradığım buydu elinize sağlık

 

[bt0606]

ilave olarak kodu aşağıdaki gibi düzenlerseniz, sürekli A1'i seçer, yani A1'e veri girdiğinizde B'deki boş hücreye attıktan sonra imleç A1 hücresine gelir, siz ayrıca uğraşmazsınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
On Error Resume Next
sat = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(sat, "B").Value = Target.Value
[COLOR="Red"][B]Range("a1").Select[/B][/COLOR]
End Sub

yardımlarınız için çok tşk ederim

 

[YUSUF44]

Sayfa ismine sağ tıklayın ve kod görüntüle deyin. ordan sol taraftaki kısımdan Module1 vardır. Onu açın, bu kodlar orda görünür.

 

[bt0606]

alt+f11 le çözdüm olayı tşk ederim

 

[bt0606]

Sayfa ismine sağ tıklayın ve kod görüntüle deyin. ordan sol taraftaki kısımdan Module1 vardır. Onu açın, bu kodlar orda görünür.

bişe daha sorsam bu makroyu aynı sayfata başka bir shücre için nasıl kullanırım yani aynı sayfada 2 farklı yere kullanmak için

 

[YUSUF44]

maalesef kodlama hakkında o düzeyde bilgim yok. kendimce bir kaç alternatif denedim ama olmadı

 

[bt0606]

maalesef kodlama hakkında o düzeyde bilgim yok. kendimce bir kaç alternatif denedim ama olmadı

teşekkür ederim