• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ComboBox dan değer seçip TextBoxa değer girme

Katılım
18 Ekim 2008
Mesajlar
5
Excel Vers. ve Dili
2017 türkçe
Merhaba
Oluşturduğum form da 267 adet poz var, Veri girişi yaparken oluşturğum ComboBox tan seçtiğim poza TextBoxa yazdığım değerin girmesi için nasıl bir kod gereklidir.
2. Olarak dosyamda yaklaşık 16000 satır var yeni kayıt yaptığımda kaydetmesi çok uzun sürüyor bunun için ne yapabilirim. Yardımlarınız için Şimdiden Çok teşekkür ediyorum
 

Ekli dosyalar

İlk sorunuzu anlamadım. Son satırı döngü ile bulduruyorsunuz. Bu işlemi uzatıyor. Bunun yerine aşağıdaki şekilde deneyin.
Kod:
Private Sub CommandButton1_Click()
Dim Son As Long
Son = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Son).Select
'Range("A2").Select
'Do While Not IsEmpty(ActiveCell)
'ActiveCell.Offset(1, 0).Select
'Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 14).Value = TextBox14.Text
ActiveCell.Offset(0, 12).Value = TextBox12.Text
ActiveCell.Offset(0, 13).Value = TextBox13.Text
ActiveCell.Offset(0, 8).Value = TextBox8.Text
ActiveCell.Offset(0, 9).Value = TextBox9.Text
ActiveCell.Offset(0, 10).Value = TextBox10.Text
ActiveCell.Offset(0, 11).Value = TextBox11.Text

MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox14.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
End Sub
 
def%20takip.png


Merhaba
Öncelikle zaman ayırıp ilgilendiğiniz için çok teşekkür ederim. 2. sorunum sayenizde düzelmiş.1. ve asıl sorunum için Ekran görüntüsü alarak anlatmaya çalıştım.
 

Ekli dosyalar

  • def takip.jpg
    def takip.jpg
    14 KB · Görüntüleme: 4
Son düzenleme:
Merhaba
Öncelikle zaman ayırıp ilgilendiğiniz için çok teşekkür ederim. 2. sorunum sayenizde düzelmiş.1. ve asıl sorunum için Ekran görüntüsü alarak anlatmaya çalıştım.
def%20takip.png
 
Resim okunmuyor malesef. Dilerseniz ekran görüntüsünü ve dosyanızı istediğinizi anlatarak askmadige34@hotmail.com adresine mail atın bakayım.
 
İşlem mail ile cevaplanarak sonuçlanmıştır.
 
Teşekkür

İşlem mail ile cevaplanarak sonuçlanmıştır.

Tekrardan merhaba

@askm göstermiş olduğunuz ilgi ve alaka için size çok teşekkür ediyorum , çok uğraşıp emek verdiniz, emeğinize yüreğinize elinize sağlık.Selamlar.
 
Geri
Üst