Hücre İçine Girip Çıkmak

[KarıncaZ]

Merhaba.

Farklı programlardan aldığımız mizanlarda Hesap kod kısımları bazen sayı bazen metin formatında geliyor. Bende İlgili hücre biçimini değiştirdikten sonra yeni biçimlendirmenin aktif olabilmesi için aşağıdaki kodu kullanıyorum ancak istediğim sonuç oluşmuyor. Belirttiğim sütundaki her hücreye girecek ve çıkacak bir kod var mı? ( Klavyeden F2 ve Enter yapar gibi.)

Sub GirCik()
For i = 2 To Range("B65536").End(3).Row
Range("B" & i).Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next i
End Sub

Kod çalışınca döngü bitmesine rağmen satır boyunca ve dolu hücre sayısınca F2 , Enter yapmaya devam ediyor.

Ayrıca bu kod çalıştıktan sonra NumLock ve CapsLock pasif oluyor. Yani sayı bloğunu kod çalışmadan önce kullana biliyorken kod çalıştıktan sonra kullana bilmek için tekrar Num Lock a basmam gerekiyor. Insert de aktif oluyor.

Örnek Dosya:
http://www.dosya.tc/server10/68mt12/OrnekMizan.xls.html


Formda konuyla ilgili aşağıdaki kodu da buldum ancak sonuç değişmedi

Sub test2()
Dim c As Range
For Each c In Range("A1:A6000").Cells
c.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
End Sub

Yardımlarınız için şimdiden teşekkürler.

 

[antonio]

Dosyanızda iki sekme mevcut: Ham veri ve Düzenleme.
Her iki sayfada mı hücre formatını düzenlemek istiyorsunuz? Değilse hangi sayfa?
Gelen hesap numaralarının hepsini dönüştürmek istediğiniz format hangisi: (metin, sayısal..)

 

[KarıncaZ]

Merhaba.

Hesap kodu kısmını Metin formatına dönüştürmek istiyorum. Herhangi bir sayfada olması yeterli.

Ham halinden birkaç sayfa oluşturuyoruz. Düşeyara formülüyle verileri çekiyoruz. Ancak bazı verilerde Hesap Kodunu Sayı Bazı verilerde Metin olarak algıladığı için sorunlar yaşıyoruz. Bu nedenle Hesap kodunun kullanıldığı her sütunu metne çevirmemiz gerekiyor.
.

 

[antonio]

Aşağıdaki kodu deneyiniz:

Sub metin_formatına_donustur()
Dim sh As Worksheet, ss As Long, alan As Range
Set sh = Sheets("Düzenleme")
ss = sh.Range("B" & Rows.Count).End(3).Row
Set alan = sh.Range("B2:B" & ss)
alan.NumberFormat = "@"
End Sub

 

[KarıncaZ]

Merhaba Sayın antonio

Maalesef olmadı. Hücre formatını metne çeviriyor ancak daha önce sayı olan hücrelerin içine tekrar girip çıkmak gerekiyor. Bunu yapmazsak diğer formüller çalışmıyor.

Örnek olarak; Ham Veri sayfasında 100 KASA hesabının Hesap kodu alanını sayı formatına dönüştürün. Düzenleme sayfasındaki formül #YOK sonucunu veriyor.

Bu durumdayken sizin kodlarınızı çalıştırınca bu sonuç değişmiyor. Ancak o hücre içerisine girip çıkmak gerekiyor. F2 sonra enter yapınca düzeliyor.
.

 

[antonio]

Kodu şu şekilde değiştirin:

Sub hucreyi_metin_formatina_cevir()
Dim sh As Worksheet, ss As Long
Set sh = Sheets("Düzenleme")
ss = sh.Range("B" & Rows.Count).End(3).Row
sh.Activate
sh.Range("B2:B" & ss).NumberFormat = "@"
sh.Range("B2").Select
Application.ScreenUpdating = False
For i = 2 To ss
    SendKeys "{F2}"
    SendKeys "{ENTER}"
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam", vbInformation, "METİN FORMATI"
End Sub

 

[KarıncaZ]

Sayın antonio

İlginiz için teşekkürler.

 

[FURKAN6@6]

Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"

Bay @antonio yukarıdaki işlemi yaptıktan sonra modüle1'de bulunan kodu nasıl çalıştıra bilirim