Textbox'ta birden fazla veri görünümü

[irfancantr]

Herkese iyi günler;

TextBox1 = Range("C4")
TextBox2 = Range("C5")
TextBox3 = Range("C6")


C4 - C5 - C6 hücrelerinin hepsini aralarında "-" işareti bulunarak veya boşlukta olabilir Textbox1 de görebilir miyim?

Yani Textbox1 = Range("C4" - "C5" - "C6") gibi...

 

[Ömer]

Merhaba,

TextBox1 = Range("C4")&"-"&Range("C5")&"-"&Range("C6")

Şeklinde deneyin.

 

[irfancantr]

Merhaba,

TextBox1 = Range("C4")&"-"&Range("C5")&"-"&Range("C6")

Şeklinde deneyin.

Teşekkürler hocam. Tam istediğim gibi ellerinize sağlık.

Konuyla alakalı olduğunu düşündüğüm bir sıkıntım daha var,

TextBox1 = Range("C4")
    TextBox2 = Range("C5")
    TextBox3 = Range("C6")
    TextBox4 = Range("C7")
    TextBox5 = Range("C8")
    TextBox6 = Range("C9")
    TextBox7 = Range("C10")
    TextBox8 = Range("C11")
    TextBox9 = Range("C12")
    TextBox10 = Range("C13")
    TextBox11 = Range("C14")
    TextBox12 = Range("C15")
    TextBox13 = Range("C16")
    TextBox14 = Format(Range("C17"), "dd.mm.yyyy")
    TextBox15 = Format(Range("C18"), "dd.mm.yyyy")
    TextBox16 = Range("E4")
    TextBox17 = Range("E5")
    TextBox18 = Range("E6")
    TextBox19 = Range("E7")
    TextBox20 = Range("E8")
    TextBox21 = Range("E9")
    TextBox22 = Range("E10")
    TextBox23 = Range("E11")
    TextBox24 = Range("E12")
    TextBox25 = Range("E13")
    TextBox26 = Range("E14")
    TextBox27 = Range("E15")
    TextBox28 = Range("E16")
    TextBox29 = Range("E17")
    TextBox30 = Range("E18")

diye daha da ilerleyen bir kod hazırlıyorum, bunun daha kısa yazılabilme durumu var mı acaba?

İkinci olarak kısa yazsam ne farkeder yazmasam ne fark eder?

İşlemlerim daha mı hızlanır?

 

[Ömer]

Teşekkürler hocam. Tam istediğim gibi ellerinize sağlık.

Konuyla alakalı olduğunu düşündüğüm bir sıkıntım daha var,

diye daha da ilerleyen bir kod hazırlıyorum, bunun daha kısa yazılabilme durumu var mı acaba?

İkinci olarak kısa yazsam ne farkeder yazmasam ne fark eder?

İşlemlerim daha mı hızlanır?

Dosya olmadığı için deneme yapamadım.

    Dim i As Byte, sut As Byte, sat As Byte
 
    sut = 3: sat = 4
    For i = 1 To 30
        Controls("TextBox" & i).Text = Cells(sat, sut)
        If i Mod 15 = 0 Then sut = sut + 2: sat = sat - 15
        sat = sat + 1
    Next i
 
    TextBox14 = Format(Range("C17"), "dd.mm.yyyy")
    TextBox15 = Format(Range("C18"), "dd.mm.yyyy")

Bu şekilde kısaltabilirsiniz. Module yazım sınırından tasarruf edersiniz ve kodlarınız daha derli toplu olur.

.

 

[irfancantr]

Hocam teşekkür ederim, ben dosyayı gönderirsem bir sürü iş çıkacak başınıza Bu şekilde devam etmeye çalışayım en iyisi.