[Yardım]  TextBox ile Aktarılan Hücre Özelliği

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

TextBox ile Aktarılan Hücre Özelliği

İleti#1)  katip16487 » 03 Ekm 2018 14:24

Private Sub CommandButton1_Click()
RowCount = Worksheets("verigiris").Range("a1").CurrentRegion.Rows.Count
With Worksheets("verigiris").Range("a1")
.Range("c1").Value = ComboBox1.Value
.Range("c3").Value = TextBox1.Value

Unload Me

MsgBox "Veriler tabloda ilgili yerlere aktarıldı.", vbOKOnly + vbInformation, "U Y A R I"

End With

End Sub


şeklinde başlangıç aşamasında olan bir KAYDET butonum var, daha epey bi TextBox ekleyeceğim, tüm textbox'lara ise sayı girişi yapılacak ve bu sayılar excel sayfasında ilgili yerlere aktarıldığında excel hesaplama yapacak.

TextBox'a veri girişi yaparken (,) kullanarak girdiğim verileri KAYDET ile ilgili hücrelere aktardığımda ilgili hücreler "Metin Olarak Saklanmış Sayı" formatı ile aktarılıyor. Bu durumda ise hesaplama yapması gereken hücreler hesaplama yapamıyor.

AMACIM

(,) kullanmak suretiyle TextBox'lara girdiğim sayıları KAYDET butonu ile ilgili hücrelere aktarırken hücrelerin biçimini yine sayı olarak veya para birimi olarak aktarmasını sağlamak yada verileri hücrelere aktardıktan sonra hücrenin "Metin Olarak Saklanan Sayı" biçimini "Sayı" veya "Para Birimi (TL)" olarak ayarlamak istiyorum.

Yukarıdaki koda ekleme yapılacak şekilde yapabilirseniz sevinirim.

Saygılarımla...
Kullanıcı avatarı
katip16487
Yeni Başlamış
 
Adı Soyadı:AHMET REVAN KULA
Kayıt: 18 Nis 2012 22:09
Konum: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi
Meslek: İcra Müdür Yardımcısı
Yaş: 37
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi

Cevap: TextBox ile Aktarılan Hücre Özelliği

İleti#2)  katip16487 » 03 Ekm 2018 18:56

MsgBox kodunun sonrasında hücreyisayıyaçevir şeklinde aşağıdaki makroyu eklemek suretiyle olayımı çözdüm. Şimdilik teşekkürler, biraz döngü fazla oluyor, bu da belgeyi yavaşlatıyor, başka çözüm önerisi olan olursa denemeye hazırım.

Sub hücreyisayıyaçevir()
Range("C3:C4").Select
Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("C6").Select
Selection.TextToColumns Destination:=Range("C6"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("E4:E9").Select
Selection.TextToColumns Destination:=Range("E4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("G5:G9").Select
Selection.TextToColumns Destination:=Range("G5"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("C1").Select
End Sub
Kullanıcı avatarı
katip16487
Yeni Başlamış
 
Adı Soyadı:AHMET REVAN KULA
Kayıt: 18 Nis 2012 22:09
Konum: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi
Meslek: İcra Müdür Yardımcısı
Yaş: 37
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya ili, Ereğli ilçesi, Hacımustafa mahallesi

Cevap: TextBox ile Aktarılan Hücre Özelliği

İleti#3)  nurikoo34 » 07 Kas 2018 15:21

Textboxtan alınan veriler belirli hücrelerde ise, hücreleri bir kere seçtir ve bir kerede sayıya dönüştür makrosu yapsın
Kullanıcı avatarı
nurikoo34
 
Kayıt: 01 Kas 2018 17:40
Meslek: tekniker
Yaş: 22
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/küçükçekmece


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe