SendKeys

[idogus]

Sub Veri_Yenile()
say = 4
For a = 4 To 3810
Range("D" & say).Select
Application.SendKeys "{f2}", True
Application.SendKeys "{ENTER}", True
say = say + 1
Next a
End Sub

Bu koddaki terslik nerede?

 

[ALPEN]

Terslik derken, aksilik mi yapıyor? :mrgreen:

Lütfen problemi tanımlayın.

Sizin yapmak istediklerinizi siz söylemeden yardımcı olmak isteyen arkadaşlar bilemez.

 

[idogus]

İstediğim veri olan hücrelerin formatını değiştirmekti. Bunuda benim bildiğim tek yöntem olan F2 & Enter tuşlarına basarak halletmek. Yukardaki macro ile yapılabileceğini düşünüyordum. Ancak yapılamadı.
SendKeys önündeki Application'u sildim sorunum çözüldü.

 

[xxrt]

İstediğim veri olan hücrelerin formatını değiştirmekti.

Metin olarak algılanan hücrelerin formatını sayı olarak düzeltecekseniz,

[vb:1:ee50e50b26]Sub say()
For i = 4 To 3810
Range("D" & i).Value = Range("D" & i).Value * 1
Next
End Sub[/vb:1:ee50e50b26]

 

[idogus]

Benim yapmak istediğim tam tersiydi. Sayı olanları metne çevirecektim.

 

[mehmett]

Sn idogus

Aşağıdaki gibi olur mu

[vb:1:510ee050c7]Sub Makro1()
Range("D43810").Select
Selection.NumberFormat = "@"
Range("D3").Select
End Sub[/vb:1:510ee050c7]

 

[idogus]

Herkesin ilgisine çok teşekkür ederim. Eskiden 10 kişi sorar bir kişi cevaplardı. Þimdi bir kişi soruyor 10 kişi cevaplıyor. Ne güzel .
Sn. zerige

o değil ama bu olur.
[vb:1:d6949a36af]
Sub Metne_Cevir()
For i = 2 to 3810
Range("D" & i) = Format(Range("D" & i), "@")
Next i
End Sub
[/vb:1:d6949a36af]