• DİKKAT

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

Textbox içinde formüller ve makro kodları kısaltması

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
I

irfancantr

Altın Üye
Katılım
18 Haziran 2007
Mesajlar
625
Excel Vers. ve Dili
Excel 365 - İmngilizce
Herkese hayırlı günler dilerim,

Birkaç denememe rağmen başarılı olamadığım konular var;
Yardıma ihtiyacım oldu.Şimdiden çok teşekkür ederim.


1- Textbox'lardan girdiğim veriler kaydet dediğimde sayısal değerleri
bile metin değeri olarak kayıt ediyor.Sayısal değerleri sayı olarak almak istiyorum.

2-
Kod: 
CommandButton1_Click()
Sheets("Veri").Select
SATIR = [b65536].End(3).Row + 1
Cells(SATIR, "A") = SATIR - 2
Cells(SATIR, "B") = ComboBox1.Value
.......
Cells(SATIR, "H") = ComboBox7.Value
Cells(SATIR, "I") = TextBox1.Text
Cells(SATIR, "J") = TextBox2.Text
......
Cells(SATIR, "BP") = TextBox60.Value
Textbox1 : textbox60
(SATIR, "A") : (SATIR, "BP") gibi bir kısaltma yapmak istiyorum

3-
Kod: 
CommandButton2_Click()
For sat = 2 To Cells(65536, "b").End(xlUp).Row
If Cells(sat, "a") Like ListBox1.Column(0) Then
Cells(sat, "b") = ComboBox1
.....
Cells(sat, "h") = ComboBox7
Cells(sat, "I") = TextBox1
Cells(sat, "j") = TextBox2
.....
Cells(sat, "BP") = TextBox60.Value
İkinci sorumda ki gibi kısaltma yapabilmek.

4-
Kod: 
ListBox1_Click()
......
TextBox6.Text = Sheets("Veri").Range("N" & Bulunan_Satir_No).Value
TextBox7.Text = Sheets("Veri").Range("O" & Bulunan_Satir_No).Value
TextBox8.Text = Sheets("Veri").Range("P" & Bulunan_Satir_No).Value
.
.
.
TextBox71.Text = Sheets("Veri").Range("CA" & Bulunan_Satir_No).Value
tekrardan kısaltmalı kodları yazabilmek.

5- Burada ben hücre değerleri yerine formulize edilmesini istediğim textbox değerlerini yazdım. Sayfada formül olmasını istemiyorum.
örn:
TextBox69.Value = TextBox68 - (TextBox67 + TextBox51)

Private Sub TextBox68_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox69 = Val(TextBox68.Value) - (Val(TextBox67.Value) + Val(TextBox51.Value))
End Sub
Genişletmek için tıkla ...
Kod: 
TextBox51.Value = TOPLA(TextBox39:TextBox50)
Kod: 
TextBox61.Value = TOPLA(TextBox57:TextBox60)
Kod: 
TextBox62.Value = EĞER(EBOŞSA(TextBox57);"";TextBox57+TextBox70)
Kod: 
TextBox63.Value = EĞER(EBOŞSA(TextBox58);"";TextBox58+TextBox70)
Kod: 
TextBox64.Value = EĞER(EBOŞSA(TextBox59);"";TextBox59+TextBox70)
Kod: 
TextBox65.Value = EĞER(EBOŞSA(TextBox60);"";TextBox60+TextBox70)
Kod: 
TextBox66.Value = TOPLA(TextBox62:TextBox65)
Kod: 
TextBox70.Text = EĞER(EHATALIYSA(TextBox69/(BAĞ_DEĞ_DOLU_SAY(TextBox53:TextBox56)));"";TextBox69/(BAĞ_DEĞ_DOLU_SAY(TextBox53:TextBox56)))
Kod: 
TextBox71.Text = EĞER(TOPLA.ÇARPIM(($BH$3:$BH$1000=BH3)*($O$3:$O$1000>=$BZ$1)*($O$3:$O$1000<=$CA$1)+0)=0;"";TOPLA.ÇARPIM(($BH$3:$BH$1000=BH3)*($O$3:$O$1000>=$BZ$1)*($O$3:$O$1000<=$CA$1)+0))
 

Ekli dosyalar

Son düzenleme:
Merhaba
1. Sorunuzun yanıtı Textbox1.text yazdığınızda text metin demek olduğuna göre metin kaydı yapar. Bunun yerine Cdbl(Textbox1.Value) şeklinde yazarsanız istediğinizi elde edersiniz.
Bir diğer alternatif ise
Textbox1.text*1 ile sayısal ifadeye dönüştürebilirsiniz.

Diğer sorularınızı anlamadım.
Önce İkinci soruyu açıklayın bakalım sonra sıra ile diğerlerini söylersiniz.
 
Sayın İhsan Tank teşekkür ederim.

2. sorum ekli dosyayı incelediniz mi bilemiyorum ama ben tek tek textbox1 den textbox60'a kadar kod yazdım. Tüm textboxlar sıralı ve sütun atlaması yok. ben 60 satır kod yazmak yerine

örnek olarak :
UserForm_Initialize olayına

Label1 = [B2]
Label2 = [C2]
Label3 = [D2]
Label4 = [E2]
.....
Label59 = [BH2]

yerine

Dim i As Byte

For i = 1 To 59
Controls("Label" & i).Caption = Cells(2, i + 1)
Next i
Genişletmek için tıkla ...

gibi kısaltma istiyorum.
 
irfancantr' Alıntı:
Sayın İhsan Tank teşekkür ederim.

2. sorum ekli dosyayı incelediniz mi bilemiyorum ama ben tek tek textbox1 den textbox60'a kadar kod yazdım. Tüm textboxlar sıralı ve sütun atlaması yok. ben 60 satır kod yazmak yerine

örnek olarak :


gibi kısaltma istiyorum.
Genişletmek için tıkla ...

Merhaba
Kod: 
Dim ts, kaplan
kaplan = 2
For ts = 1 To 59
Controls("Label" & ts).Caption = Cells(2, kaplan)
kaplan = kaplan + 1
Next
Bu kod işinizi görür.

Not : Sizin dosyanız çok kalabalıktır şimdi ondan dolayı hiç açmadım ufak bir dosya üzerinde deneme yaparak kodları gönderiyorum.

3. Sorunuzu da anlatırsanız ona bakalım.
 
İhsan Tank' Alıntı:
Not : Sizin dosyanız çok kalabalıktır şimdi ondan dolayı hiç açmadım ufak bir dosya üzerinde deneme yaparak kodları gönderiyorum.

3. Sorunuzu da anlatırsanız ona bakalım.
Genişletmek için tıkla ...

Hocam ben 3.Mesajım da 2.Soru için örnek olsun diye bu kodları yazdım.
Ben bu Label'ları tek tek yazmak yerine bu şekilde kısa bir kodu Ömer hocamın kodlarından almıştım.

Buna benzer olarak CommandButton1_Click() başlığı altında ki
textbox'ları kısa kod ile düzenleyebilir miyiz?

Kod: 
Dim ts, kaplan
kaplan = 2
For ts = 1 To 60
Controls("Textbox" & ts).Value = Cells(2, kaplan)
kaplan = kaplan + 1
Next
Yalnız Textboxlar CommandButton1_Click() makrosu için "I" Sütunundan başlıyor.

Not: Dosyam da 1 sayfa 1 userform ve 10 civarı makro bulunuyor. Pek kalabalık sayılmaz üstadım. Israrım için şimdiden özür dilerim.
 
irfancantr' Alıntı:
Hocam ben 3.Mesajım da 2.Soru için örnek olsun diye bu kodları yazdım.
Ben bu Label'ları tek tek yazmak yerine bu şekilde kısa bir kodu Ömer hocamın kodlarından almıştım.

Buna benzer olarak CommandButton1_Click() başlığı altında ki
textbox'ları kısa kod ile düzenleyebilir miyiz?

Kod: 
Dim ts, kaplan
kaplan = 2
For ts = 1 To 60
Controls("Textbox" & ts).Value = Cells(2, kaplan)
kaplan = kaplan + 1
Next
Yalnız Textboxlar CommandButton1_Click() makrosu için "I" Sütunundan başlıyor.

Not: Dosyam da 1 sayfa 1 userform ve 10 civarı makro bulunuyor. Pek kalabalık sayılmaz üstadım. Israrım için şimdiden özür dilerim.
Genişletmek için tıkla ...

Gerçekten dosyaya bakmama gerek yok o kadar zamanım yok.
Textboxların adlarımı değişecek yoksa I sütununda itibaren değerler mi textboxlara gelecek açıklama yetersiz kalmış.
 
İhsan Tank' Alıntı:
Gerçekten dosyaya bakmama gerek yok o kadar zamanım yok.
Textboxların adlarımı değişecek yoksa I sütununda itibaren değerler mi textboxlara gelecek açıklama yetersiz kalmış.
Genişletmek için tıkla ...

Evet I sütunundan itibaren değerler Textboxlara gelecek,
Aynı şekilde I sütunundan itibarende El ile doldurulan Textboxlar I sütunundan itibaren son dolu hücre bulunarak hücrelere doldurmaya başlayacak.
 
irfancantr' Alıntı:
Evet I sütunundan itibaren değerler Textboxlara gelecek,
Aynı şekilde I sütunundan itibarende El ile doldurulan Textboxlar I sütunundan itibaren son dolu hücre bulunarak hücrelere doldurmaya başlayacak.
Genişletmek için tıkla ...

Merhaba
Bu kod 1. Satırdaki I sütununda itibaren yazan bilgileri Textboxlara alır.
Kod: 
Option Explicit
Private Sub CommandButton1_Click()
Dim ts, kaplan
kaplan = 9
For ts = 1 To 69
Controls("Textbox" & ts) = Cells(1, kaplan)
kaplan = kaplan + 1
Next
End Sub
Diğer sorunuzu anlamadım.
Yada sorular karıştı. Textbox'a hangi bilgiler gelecek bunu bilmediğim için 1. satırdaki bilgileri getirdim. Ama son satır'da ne demek istediğinizi anlamadım. İstediğiniz şu olabilir mi_?
Son dolu satır'daki bilgileri textbox'a gelecek sonra sizin yazdıklarınız bir alt satırına kaydedilecek bunu mu söylemek istediğiniz.
 
İhsan Tank' Alıntı:
Merhaba
Bu kod 1. Satırdaki I sütununda itibaren yazan bilgileri Textboxlara alır.
Kod: 
Option Explicit
Private Sub CommandButton1_Click()
Dim ts, kaplan
kaplan = 9
For ts = 1 To 69
Controls("Textbox" & ts) = Cells(1, kaplan)
kaplan = kaplan + 1
Next
End Sub
Diğer sorunuzu anlamadım.
Yada sorular karıştı. Textbox'a hangi bilgiler gelecek bunu bilmediğim için 1. satırdaki bilgileri getirdim. Ama son satır'da ne demek istediğinizi anlamadım. İstediğiniz şu olabilir mi_?
Son dolu satır'daki bilgileri textbox'a gelecek sonra sizin yazdıklarınız bir alt satırına kaydedilecek bunu mu söylemek istediğiniz.
Genişletmek için tıkla ...

Evet sizin dediğiniz gibi,
2. Sorum boş olan textboxlar el ile doldurulup son dolu olan satırın bir altına kayıt ediyor.

3.Sorum Listboxtan seçerek textboxlara aldığım verileri değiştiriyorum daha sonra listboxta seçili olan satırda ki eski bilgiler ile değiştiriyor.Yani son dolu hücre altına yeni kayıt yapmayacak , eskisi ile değiştirelecek.

4. İse listboxtan seçtiğim satırda ki bilgilerin textboxlara getirilmesi.
 
irfancantr' Alıntı:
Evet sizin dediğiniz gibi,
2. Sorum boş olan textboxlar el ile doldurulup son dolu olan satırın bir altına kayıt ediyor.

3.Sorum Listboxtan seçerek textboxlara aldığım verileri değiştiriyorum daha sonra listboxta seçili olan satırda ki eski bilgiler ile değiştiriyor.Yani son dolu hücre altına yeni kayıt yapmayacak , eskisi ile değiştirelecek.

4. İse listboxtan seçtiğim satırda ki bilgilerin textboxlara getirilmesi.
Genişletmek için tıkla ...

2. Sorunuzun 2. Kısmını henüz anlamadım.
Lütfen daha detaylı anlatın.
Şimdi son dolu satırdaki bilgiler textbox'a gelecek boş olanları elle doldurduğunuzda alt satıra kayıt yapacak yanlış mı anladım. Bu şekilde bilgiler karışmaz mı_?
 
2. Sorum;

Kaydet butonu ()
'Textboxların hepsi şu anda boş. Ben yeni kayıt yapıyorum , Textbox1 den Textbox60 a kadar bilgiler yazıyorum ve I sütunundan başlayarak BP sütununa kadar son dolu satırın bir altına (ilk boş olan satır) kayıt ediyorum hepsini.

3.Sorum;
Düzelt butonu()
Listbox1 den seçtiğim verileri textboxlara getirmesi ve buna göre varolan kayıtları düzeltmeye çalışmam.

Sorular karıştı İhsan hocam :)
 
2.Soru kodları

Kod: 
Private Sub CommandButton1_Click()
Dim SATIR As Long
    If ComboBox1.Value = "" Or ComboBox2.Value = "" Or ComboBox3.Value = "" Then
        MsgBox "LÜTFEN BOŞ ALANLARI DOLDURUNUZ.", vbInformation
    Exit Sub

Else
Sheets("Veri").Select
SATIR = [b65536].End(3).Row + 1
    Cells(SATIR, "A") = SATIR - 2
    Cells(SATIR, "B") = ComboBox1.Value
    Cells(SATIR, "C") = ComboBox2.Value
    Cells(SATIR, "D") = ComboBox3.Value
    Cells(SATIR, "E") = ComboBox4.Value
    Cells(SATIR, "F") = ComboBox5.Value
    Cells(SATIR, "G") = ComboBox6.Value
    Cells(SATIR, "H") = ComboBox7.Value
'---------------------------------
    Cells(SATIR, "I") = TextBox1.Text
    Cells(SATIR, "J") = TextBox2.Text
    Cells(SATIR, "K") = TextBox3.Text
    Cells(SATIR, "L") = TextBox4.Text
    Cells(SATIR, "M") = TextBox5.Text
    Cells(SATIR, "N") = TextBox6.Text
    Cells(SATIR, "O") = TextBox7.Text
    Cells(SATIR, "P") = TextBox8.Text
    Cells(SATIR, "Q") = TextBox9.Value
    Cells(SATIR, "R") = TextBox10.Value
    Cells(SATIR, "S") = TextBox11.Value
    Cells(SATIR, "T") = TextBox12.Value
    Cells(SATIR, "U") = TextBox13.Value
    Cells(SATIR, "V") = TextBox14.Value
    Cells(SATIR, "W") = TextBox15.Value
    Cells(SATIR, "X") = TextBox16.Value
    Cells(SATIR, "Y") = TextBox17.Value
    Cells(SATIR, "Z") = TextBox18.Value
    Cells(SATIR, "AA") = TextBox19.Value
    Cells(SATIR, "AB") = TextBox20.Value
    Cells(SATIR, "AC") = TextBox21.Value
    Cells(SATIR, "AD") = TextBox22.Value
    Cells(SATIR, "AE") = TextBox23.Value
    Cells(SATIR, "AF") = TextBox24.Value
    Cells(SATIR, "AG") = TextBox25.Value
    Cells(SATIR, "AH") = TextBox26.Value
    Cells(SATIR, "AI") = TextBox27.Value
    Cells(SATIR, "AJ") = TextBox28.Value
    Cells(SATIR, "AK") = TextBox29.Value
    Cells(SATIR, "AL") = TextBox30.Value
    Cells(SATIR, "AM") = TextBox31.Value
    Cells(SATIR, "AN") = TextBox32.Value
    Cells(SATIR, "AO") = TextBox33.Value
    Cells(SATIR, "AP") = TextBox34.Value
    Cells(SATIR, "AQ") = TextBox35.Value
    Cells(SATIR, "AR") = TextBox36.Value
    Cells(SATIR, "AS") = TextBox37.Value
    Cells(SATIR, "AT") = TextBox38.Value
    Cells(SATIR, "AU") = TextBox39.Value
    Cells(SATIR, "AV") = TextBox40.Value
    Cells(SATIR, "AW") = TextBox41.Value
    Cells(SATIR, "AX") = TextBox42.Value
    Cells(SATIR, "AY") = TextBox43.Value
    Cells(SATIR, "AZ") = TextBox44.Value
    Cells(SATIR, "BA") = TextBox45.Value
    Cells(SATIR, "BB") = TextBox46.Value
    Cells(SATIR, "BC") = TextBox47.Value
    Cells(SATIR, "BD") = TextBox48.Value
    Cells(SATIR, "BE") = TextBox49.Value
    Cells(SATIR, "BF") = TextBox50.Value
    Cells(SATIR, "BG") = TextBox51.Value
    Cells(SATIR, "BH") = TextBox52.Value
    Cells(SATIR, "BI") = TextBox53.Value
    Cells(SATIR, "BJ") = TextBox54.Value
    Cells(SATIR, "BK") = TextBox55.Value
    Cells(SATIR, "BL") = TextBox56.Value
    Cells(SATIR, "BM") = TextBox57.Value
    Cells(SATIR, "BN") = TextBox58.Value
    Cells(SATIR, "BO") = TextBox59.Value
    Cells(SATIR, "BP") = TextBox60.Value
    Cells(SATIR, "BW") = TextBox67.Value
    Cells(SATIR, "BX") = TextBox68.Value
    Cells(SATIR, "BY") = TextBox69.Value
    Cells(SATIR, "CB") = TextBox200.Value
End If

    MsgBox " İşlem Tamamdır...", vbOKOnly
    Unload Me
TextBox99 = ".": TextBox99 = ""
End Sub

Hocam kodların kalabalık olduğunu görüyoruz. Ben bu sıralı kodları nasıl kısaltabiliriz onu sormak istemiştim.

Bu 2. Sorum....
 
3.Sorumun bağlı olduğu Kodlar

Kod: 
Private Sub CommandButton2_Click()
Dim sat As Integer
'*****listbox seçili değilse uyar
    If ListBox1.ListIndex < 0 Then
        MsgBox "Önce bir isim seçmelisiniz", vbInformation
    Exit Sub: End If
'*****değişecek verileri döngü ile kontrol et
For sat = 2 To Cells(65536, "b").End(xlUp).Row
    If Cells(sat, "a") Like ListBox1.Column(0) Then
        Cells(sat, "b") = ComboBox1
        Cells(sat, "c") = ComboBox2
        Cells(sat, "d") = ComboBox3
        Cells(sat, "e") = ComboBox4
        Cells(sat, "f") = ComboBox5
        Cells(sat, "g") = ComboBox6
        Cells(sat, "h") = ComboBox7
'----------------------------------------------------
        Cells(sat, "I") = TextBox1
        Cells(sat, "j") = TextBox2
        Cells(sat, "k") = TextBox3
        Cells(sat, "l") = TextBox4
        Cells(sat, "m") = TextBox5
        Cells(sat, "n") = TextBox6
        Cells(sat, "O") = TextBox7.Text
        Cells(sat, "P") = TextBox8.Text
        Cells(sat, "Q") = TextBox9.Value
        Cells(sat, "R") = TextBox10.Value
        Cells(sat, "S") = TextBox11.Value
        Cells(sat, "T") = TextBox12.Value
        Cells(sat, "U") = TextBox13.Value
        Cells(sat, "V") = TextBox14.Value
        Cells(sat, "W") = TextBox15.Value
        Cells(sat, "X") = TextBox16.Value
        Cells(sat, "Y") = TextBox17.Value
        Cells(sat, "Z") = TextBox18.Value
        Cells(sat, "AA") = TextBox19.Value
        Cells(sat, "AB") = TextBox20.Value
        Cells(sat, "AC") = TextBox21.Value
        Cells(sat, "AD") = TextBox22.Value
        Cells(sat, "AE") = TextBox23.Value
        Cells(sat, "AF") = TextBox24.Value
        Cells(sat, "AG") = TextBox25.Value
        Cells(sat, "AH") = TextBox26.Value
        Cells(sat, "AI") = TextBox27.Value
        Cells(sat, "AJ") = TextBox28.Value
        Cells(sat, "AK") = TextBox29.Value
        Cells(sat, "AL") = TextBox30.Value
        Cells(sat, "AM") = TextBox31.Value
        Cells(sat, "AN") = TextBox32.Value
        Cells(sat, "AO") = TextBox33.Value
        Cells(sat, "AP") = TextBox34.Value
        Cells(sat, "AQ") = TextBox35.Value
        Cells(sat, "AR") = TextBox36.Value
        Cells(sat, "AS") = TextBox37.Value
        Cells(sat, "AT") = TextBox38.Value
        Cells(sat, "AU") = TextBox39.Value
        Cells(sat, "AV") = TextBox40.Value
        Cells(sat, "AW") = TextBox41.Value
        Cells(sat, "AX") = TextBox42.Value
        Cells(sat, "AY") = TextBox43.Value
        Cells(sat, "AZ") = TextBox44.Value
        Cells(sat, "BA") = TextBox45.Value
        Cells(sat, "BB") = TextBox46.Value
        Cells(sat, "BC") = TextBox47.Value
        Cells(sat, "BD") = TextBox48.Value
        Cells(sat, "BE") = TextBox49.Value
        Cells(sat, "BF") = TextBox50.Value
        Cells(sat, "BH") = TextBox52.Value
        Cells(sat, "BI") = TextBox53.Value
        Cells(sat, "BJ") = TextBox54.Value
        Cells(sat, "BK") = TextBox55.Value
        Cells(sat, "BL") = TextBox56.Value
        Cells(sat, "BM") = TextBox57.Value
        Cells(sat, "BN") = TextBox58.Value
        Cells(sat, "BO") = TextBox59.Value
        Cells(sat, "BP") = TextBox60.Value
        Cells(sat, "BW") = TextBox67.Value
        Cells(sat, "BX") = TextBox68.Value
        Cells(sat, "BY") = TextBox69.Value
        Cells(sat, "CB") = TextBox200.Value
    End If: Next
'değişim sonu textleri temizle
'TextBox1 = Empty: TextBox2 = Empty
'***** listboxu yenile
TextBox99 = ".": TextBox99 = ""
MsgBox " İşlem Tamamdır...", vbOKOnly
Unload Me
End Sub

Aynı şekilde bu uzun uzun yazılan kodları da kısaltmak istemiştim.
Bu 3. Sorum.
 
Kod: 
Private Sub ListBox1_Click()
Dim Bulunan_Satir_No As Long
On Error Resume Next
    Bulunan_Satir_No = ListBox1.ListIndex + 2
    TextBox1.Text = Sheets("Veri").Range("I" & Bulunan_Satir_No).Value
    TextBox2.Text = Sheets("Veri").Range("J" & Bulunan_Satir_No).Value
    TextBox3.Text = Sheets("Veri").Range("K" & Bulunan_Satir_No).Value
    TextBox4.Text = Sheets("Veri").Range("L" & Bulunan_Satir_No).Value
    TextBox5.Text = Sheets("Veri").Range("M" & Bulunan_Satir_No).Value
'----------------------------------------------------------------------
    ComboBox1.Text = Sheets("Veri").Range("B" & Bulunan_Satir_No).Value
    ComboBox2.Text = Sheets("Veri").Range("C" & Bulunan_Satir_No).Value
    ComboBox3.Text = Sheets("Veri").Range("D" & Bulunan_Satir_No).Value
    ComboBox4.Text = Sheets("Veri").Range("E" & Bulunan_Satir_No).Value
    ComboBox5.Text = Sheets("Veri").Range("F" & Bulunan_Satir_No).Value
    ComboBox6.Text = Sheets("Veri").Range("G" & Bulunan_Satir_No).Value
    ComboBox7.Text = Sheets("Veri").Range("H" & Bulunan_Satir_No).Value
'-----------------------------------------------------------------------
    TextBox6.Text = Sheets("Veri").Range("N" & Bulunan_Satir_No).Value
    TextBox7.Text = Sheets("Veri").Range("O" & Bulunan_Satir_No).Value
    TextBox8.Text = Sheets("Veri").Range("P" & Bulunan_Satir_No).Value
    TextBox9.Text = Sheets("Veri").Range("Q" & Bulunan_Satir_No).Value
    TextBox10.Text = Sheets("Veri").Range("R" & Bulunan_Satir_No).Value
    TextBox11.Text = Sheets("Veri").Range("S" & Bulunan_Satir_No).Value
    TextBox12.Text = Sheets("Veri").Range("T" & Bulunan_Satir_No).Value
    TextBox13.Text = Sheets("Veri").Range("U" & Bulunan_Satir_No).Value
    TextBox14.Text = Sheets("Veri").Range("V" & Bulunan_Satir_No).Value
    TextBox15.Text = Sheets("Veri").Range("W" & Bulunan_Satir_No).Value
    TextBox16.Text = Sheets("Veri").Range("X" & Bulunan_Satir_No).Value
    TextBox17.Text = Sheets("Veri").Range("Y" & Bulunan_Satir_No).Value
    TextBox18.Text = Sheets("Veri").Range("Z" & Bulunan_Satir_No).Value
    TextBox19.Text = Sheets("Veri").Range("AA" & Bulunan_Satir_No).Value
    TextBox20.Text = Sheets("Veri").Range("AB" & Bulunan_Satir_No).Value
    TextBox21.Text = Sheets("Veri").Range("AC" & Bulunan_Satir_No).Value
    TextBox22.Text = Sheets("Veri").Range("AD" & Bulunan_Satir_No).Value
    TextBox23.Text = Sheets("Veri").Range("AE" & Bulunan_Satir_No).Value
    TextBox24.Text = Sheets("Veri").Range("AF" & Bulunan_Satir_No).Value
    TextBox25.Text = Sheets("Veri").Range("AG" & Bulunan_Satir_No).Value
    TextBox26.Text = Sheets("Veri").Range("AH" & Bulunan_Satir_No).Value
    TextBox27.Text = Sheets("Veri").Range("AI" & Bulunan_Satir_No).Value
    TextBox28.Text = Sheets("Veri").Range("AJ" & Bulunan_Satir_No).Value
    TextBox29.Text = Sheets("Veri").Range("AK" & Bulunan_Satir_No).Value
    TextBox30.Text = Sheets("Veri").Range("AL" & Bulunan_Satir_No).Value
    TextBox31.Text = Sheets("Veri").Range("AM" & Bulunan_Satir_No).Value
    TextBox32.Text = Sheets("Veri").Range("AN" & Bulunan_Satir_No).Value
    TextBox33.Text = Sheets("Veri").Range("AO" & Bulunan_Satir_No).Value
    TextBox34.Text = Sheets("Veri").Range("AP" & Bulunan_Satir_No).Value
    TextBox35.Text = Sheets("Veri").Range("AQ" & Bulunan_Satir_No).Value
    TextBox36.Text = Sheets("Veri").Range("AR" & Bulunan_Satir_No).Value
    TextBox37.Text = Sheets("Veri").Range("AS" & Bulunan_Satir_No).Value
    TextBox38.Text = Sheets("Veri").Range("AT" & Bulunan_Satir_No).Value
    TextBox39.Text = Sheets("Veri").Range("AU" & Bulunan_Satir_No).Value
    TextBox40.Text = Sheets("Veri").Range("AV" & Bulunan_Satir_No).Value
    TextBox41.Text = Sheets("Veri").Range("AW" & Bulunan_Satir_No).Value
    TextBox42.Text = Sheets("Veri").Range("AX" & Bulunan_Satir_No).Value
    TextBox43.Text = Sheets("Veri").Range("AY" & Bulunan_Satir_No).Value
    TextBox44.Text = Sheets("Veri").Range("AZ" & Bulunan_Satir_No).Value
    TextBox45.Text = Sheets("Veri").Range("BA" & Bulunan_Satir_No).Value
    TextBox46.Text = Sheets("Veri").Range("BB" & Bulunan_Satir_No).Value
    TextBox47.Text = Sheets("Veri").Range("BC" & Bulunan_Satir_No).Value
    TextBox48.Text = Sheets("Veri").Range("BD" & Bulunan_Satir_No).Value
    TextBox49.Text = Sheets("Veri").Range("BE" & Bulunan_Satir_No).Value
    TextBox50.Text = Sheets("Veri").Range("BF" & Bulunan_Satir_No).Value
    TextBox51.Text = Sheets("Veri").Range("BG" & Bulunan_Satir_No).Value
    TextBox52.Text = Sheets("Veri").Range("BH" & Bulunan_Satir_No).Value
    TextBox53.Text = Sheets("Veri").Range("BI" & Bulunan_Satir_No).Value
    TextBox54.Text = Sheets("Veri").Range("BJ" & Bulunan_Satir_No).Value
    TextBox55.Text = Sheets("Veri").Range("BK" & Bulunan_Satir_No).Value
    TextBox56.Text = Sheets("Veri").Range("BL" & Bulunan_Satir_No).Value
    TextBox57.Text = Sheets("Veri").Range("BM" & Bulunan_Satir_No).Value
    TextBox58.Text = Sheets("Veri").Range("BN" & Bulunan_Satir_No).Value
    TextBox59.Text = Sheets("Veri").Range("BO" & Bulunan_Satir_No).Value
    TextBox60.Text = Sheets("Veri").Range("BP" & Bulunan_Satir_No).Value
    TextBox61.Text = Sheets("Veri").Range("BQ" & Bulunan_Satir_No).Value
    TextBox62.Text = Sheets("Veri").Range("BR" & Bulunan_Satir_No).Value
    TextBox63.Text = Sheets("Veri").Range("BS" & Bulunan_Satir_No).Value
    TextBox64.Text = Sheets("Veri").Range("BT" & Bulunan_Satir_No).Value
    TextBox65.Text = Sheets("Veri").Range("BU" & Bulunan_Satir_No).Value
    TextBox66.Text = Sheets("Veri").Range("BV" & Bulunan_Satir_No).Value
    TextBox67.Text = Sheets("Veri").Range("BW" & Bulunan_Satir_No).Value
    TextBox68.Text = Sheets("Veri").Range("BX" & Bulunan_Satir_No).Value
    TextBox69.Text = Sheets("Veri").Range("BY" & Bulunan_Satir_No).Value
    TextBox70.Text = Sheets("Veri").Range("BZ" & Bulunan_Satir_No).Value
    TextBox71.Text = Sheets("Veri").Range("CA" & Bulunan_Satir_No).Value
    TextBox200.Value = (ComboBox1.Value) & ("-") & (ComboBox2.Value) & ("-") & (ComboBox3.Value) & ("-") & (TextBox1.Value) & ("-") & (TextBox3.Value)
On Error Resume Next
Image1.Picture = LoadPicture("C:\Documents and Settings\Pcx\Desktop\OTO GALERİ\FOTO\" & TextBox200 & ".Jpg")
End Sub

Bu da 4. sorumdu. Kodlar da kısaltma yapmak.
 
irfancantr' Alıntı:
Hocam kodların kalabalık olduğunu görüyoruz. Ben bu sıralı kodları nasıl kısaltabiliriz onu sormak istemiştim.
Bu 2. Sorum....
Genişletmek için tıkla ...

Merhaba
2. Sorunuzun yanıtı bu sanırım.
Kod: 
Option Explicit
Private Sub CommandButton1_Click()
Dim ts, kaplan, trabzonspor
trabzonspor = Range("A" & Rows.Count).End(xlUp).Row
For ts = 1 To 7
If Controls("ComboBox" & ts) = Empty Then
MsgBox "ComboBox" & ts & " Boş"
Controls("ComboBox" & ts).SetFocus
Exit Sub
End If
Next
For ts = 1 To 69
If Controls("TextBox" & ts) = Empty Then
MsgBox "TextBox" & ts & " Boş"
Controls("TextBox" & ts).SetFocus
Exit Sub
End If
Next
kaplan = 2
For ts = 1 To 7
Cells(trabzonspor + 1, kaplan) = Controls("ComboBox" & ts)
kaplan = kaplan + 1
Next
kaplan = 9
For ts = 1 To 69
Cells(trabzonspor + 1, kaplan) = Controls("Textbox" & ts)
kaplan = kaplan + 1
Next
End Sub
Bu kodu diğerlerine uygularsınız sanırım.
 
Hocam emekleriniz için tekrardan çok teşekkür ederim ama kodları dosyama eklediğimde (benden kaynaklanıyordur muhtemelen) excel sayfasına normal giriş hiç yapamaz oldum. Kodlar daha kısa olsun kitap rahatlasın istedim ama tam tersine çevirdim sanırım. Herşey için çok sağolun, eski sistemde devam edeceğim.
 
irfancantr' Alıntı:
Hocam emekleriniz için tekrardan çok teşekkür ederim ama kodları dosyama eklediğimde (benden kaynaklanıyordur muhtemelen) excel sayfasına normal giriş hiç yapamaz oldum. Kodlar daha kısa olsun kitap rahatlasın istedim ama tam tersine çevirdim sanırım. Herşey için çok sağolun, eski sistemde devam edeceğim.
Genişletmek için tıkla ...

Siz bilirsiniz benden istediniz bende yardım ettim
Rica ederim
:keyif:
 
İhsan Tank' Alıntı:
Siz bilirsiniz benden istediniz bende yardım ettim
Rica ederim
:keyif:
Genişletmek için tıkla ...

İhsan hocam hoş geldiniz, gelmenizi dört gözle bekledim :)

Dün hazırladığınız kodların bir kısmını dosyaya entegre edebildim.
Yapamadığım nokta, kaydet dediğimde A sütununa otomatik olarak +1 eklemesini beceremedim.

İkinci olarakta sayısal değerleri bu şekilde hazırlanmış bir kodda metinsel olarak değilde sayısal olarak nasıl hücreye aktarabiliriz?
 
irfancantr' Alıntı:
İhsan hocam hoş geldiniz, gelmenizi dört gözle bekledim :)

Dün hazırladığınız kodların bir kısmını dosyaya entegre edebildim.
Yapamadığım nokta, kaydet dediğimde A sütununa otomatik olarak +1 eklemesini beceremedim.

İkinci olarakta sayısal değerleri bu şekilde hazırlanmış bir kodda metinsel olarak değilde sayısal olarak nasıl hücreye aktarabiliriz?
Genişletmek için tıkla ...

Şu dosyanızı küçültün içine 5 tane combo 5 tane text ve 2 tane command ekleyin ve onun üzerinde açıklayın.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst