f2 enter sorunu

[muhmayar]

Merhabalar,

Problem tanımı: Userform içerisine yerleştirdiğim textbox ve combobox'lara veri girişi yaptığım zaman excel sayfasında belirlediğim yerlere ilgili veriler düşüyor. Ancak, bu verileri excel içerisinde kullanamıyorum. Mesela toplama, sayma gibi basit fonksiyonlar bile çalışmıyor.

Userform'dan gönderdiğim verileri excel'in tanıması için her hücreye girip "f2" ve "enter" yapmak zorunda kalıyorum.

İlk beş sütun için minimum 12500 kez f2 enter yapmak hayli zor olduğu için yardımınızı talep ediyorum.

Konuyla ilgili site içerisinde birçok farklı mesajı okudum ama uygulamayı denediğimde sonuç alamadım.

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

Saygılarımla,

 

[uzmanamele]

merhaba

ofis kopçası / excel seçenekleri / formüller / hesaplama seçenekleri : otomatik

 

[muhmayar]

merhaba

ofis kopçası / excel seçenekleri / formüller / hesaplama seçenekleri : otomatik

Teşekkürler uzmanamele, ancak bende mevcut şık otomatik olarak işaretli durumda.

 

[Skorpiyon]

Sayın muhmayar,

Dosyanızdan küçük bir örnek göndermeniz mümkün mü ?

 

[muhmayar]

Sayın Şaban Sertkaya,

Teşekkür ediyorum. Tam dosyayı ekleyecektim ki, son bir kez hata yaptığım yeri bulmak için dosyaya baktım. Kodları yazarken, her bir combobox için yazacağım "value" kısmını yazmamışım. Userform üzerinden excel'e aktarılan tüm veriler text olarak algılanmış bu durumda. f2 enter yapılınca düzeliyordu. Ancak aşağıda belirttiğim haliyle kodları düzeltince sorun kalmadı. (value ifadesi eklenmiş hali)

Tekrar teşekkür ediyorum.

Saygılarımla,

--------------

Private Sub CommandButton1_Click()
If Range("A2").Value = "" Then
Range("A2").Select
ActiveCell.Value = 1
ActiveCell.Offset(0, 1).Value = ComboBox4.Value
ActiveCell.Offset(0, 2).Value = ComboBox1.Value
ActiveCell.Offset(0, 3).Value = ComboBox2.Value
ActiveCell.Offset(0, 4).Value = ComboBox3.Value
Else
[A65536].End(xlUp).Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1).Value = ComboBox4.Value
ActiveCell.Offset(0, 2).Value = ComboBox1.Value
ActiveCell.Offset(0, 3).Value = ComboBox2.Value
ActiveCell.Offset(0, 4).Value = ComboBox3.Value
End If
ComboBox4.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
ComboBox1.SetFocus
End Sub

------

 

[Skorpiyon]

Rica ederim biz birşey yapmadık ki Verilerinizi text olarak mı atıyorsunuz diye soracaktım ama dosyayı görmek daha uygun olur diye dosyadan örnek istemiştim.

Kolay gelsin...