yazdıkca diğer sütuna geçsin

[Hacı Bayram ÖZKAN]

Arkadaşlar; Excel veya bir bitişik bir sayı yazarken her harfi veya rakamı yan yana yazmasını istiyorum, a1'e E, b1'e x, c1'e c, ... yazmasını istiyorum nasıl olur. yada olurmu.

 

[leumruk]

Arkadaşlar; Excel veya bir bitişik bir sayı yazarken her harfi veya rakamı yan yana yazmasını istiyorum, a1'e E, b1'e x, c1'e c, ... yazmasını istiyorum nasıl olur. yada olurmu.

Syn. tarzanhacı,
İsteğiniz tam anlaşılmıyor. Ayrıntılı bir açıklama yapar mısınız veya örnek bir dosyada nasıl bir şey istediğinizi belirtir misiniz?

 

[Hacı Bayram ÖZKAN]

Syn. tarzanhacı,
İsteğiniz tam anlaşılmıyor. Ayrıntılı bir açıklama yapar mısınız veya örnek bir dosyada nasıl bir şey istediğinizi belirtir misiniz?

dosya ekledim bir bakarmısınız

 

[1Al2Ver]

Merhaba,

Dosyanız ekte....

 

[leumruk]

Merhaba,
Bir hücreye veri girerken aynı anda diğer hücrelere aktarma işlevi mümkün değildir. Ancak veri girilip hücreden çıkıldığında hücredeki harfler diğer hücrelere aktarılabilir. Syn. 1Al2Ver'in örneğindeki gibi formül kullanabileceğiniz gibi, bu işlemi makro ile de yapabilirsiniz.
Aynı anda verilerin hücrelere dağılmasını istiyorsanız. A1 hücresine yerleştireceğiniz bir textbox'tan istifade edebilirsiniz. Daha önce de buna benzer sorular geldiği için alternatif bir uygulama hazırladım. A1'e tıkladığınızda textbox görünecek, diğer hücrelere geçtiğinizde gizlenecek. Örneği inceleyiniz.

Private Sub TextBox1_Change()
Range(Cells(3, "a"), Cells(3, Cells(3, 256).End(1).Column)).ClearContents
If TextBox1 = "" Then Exit Sub
For x = 1 To Len(TextBox1)
Cells(3, x) = Mid(TextBox1.Text, x, 1)
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then
If TextBox1.Visible = True Then TextBox1.Visible = False
Exit Sub
Else:
TextBox1.Visible = True
TextBox1.Top = [a1].Top
TextBox1.Left = [a1].Left
TextBox1.Height = [a1].Height
TextBox1.Width = [a1].Width
TextBox1.Activate
End If
End Sub

 

[Hacı Bayram ÖZKAN]

teşekkürler üstatlar. emeğinize sağlık esenlikle kalın