Hücre İçine Girip Çıkmak

Katılım
22 Ocak 2006
Mesajlar
208
Excel Vers. ve Dili
Office 2003 , 2013 ve 2016 TR.
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.
 
Son düzenleme:

antonio

Destek Ekibi
Destek Ekibi
Katılım
13 Şubat 2011
Mesajlar
1,161
Excel Vers. ve Dili
Microsoft Office Professional Plus 2013 Türkçe
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..)
 
Katılım
22 Ocak 2006
Mesajlar
208
Excel Vers. ve Dili
Office 2003 , 2013 ve 2016 TR.
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

Destek Ekibi
Destek Ekibi
Katılım
13 Şubat 2011
Mesajlar
1,161
Excel Vers. ve Dili
Microsoft Office Professional Plus 2013 Türkçe
Aşağıdaki kodu deneyiniz:
Kod:
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
 
Katılım
22 Ocak 2006
Mesajlar
208
Excel Vers. ve Dili
Office 2003 , 2013 ve 2016 TR.
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

Destek Ekibi
Destek Ekibi
Katılım
13 Şubat 2011
Mesajlar
1,161
Excel Vers. ve Dili
Microsoft Office Professional Plus 2013 Türkçe
Kodu şu şekilde değiştirin:
Kod:
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
 
Katılım
22 Ocak 2006
Mesajlar
208
Excel Vers. ve Dili
Office 2003 , 2013 ve 2016 TR.
Sayın antonio

İlginiz için teşekkürler.
 
Katılım
19 Ekim 2011
Mesajlar
11
Excel Vers. ve Dili
office 2010#2013#2019
Altın Üyelik Bitiş Tarihi
26-03-2021
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
 
Üst