[Yardım]  Tarihte virgülü, noktaya çevirme

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

Tarihte virgülü, noktaya çevirme

İleti#1)  nurettin42 » 25 Haz 2018 00:44

Kolay gelsin arkadaşlar eklemiş olduğum dosyada açılan use formda tatil ekle butonuda texboxa tarih 01,01,2018 şeklinde girdigimde
01.01.2018 olarak kaydetmesini istiyorum yani virgü(,) noktaya (.) cevirmesini bi türlü beceremedim yardımcı olursanız senvinirim.
UserForm r tatil sayfasının A sutununa altalta mükerrer kayıt engelleyerek tarih sıralı sekilde kayıt yapmasını elmden geldiği asıl stenin yardımıyla yapmaya çalıştım.yardımlarınızı bekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son Enes Recep BAĞ tarafından, 25 Haz 2018 02:22 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Başlık düzeltildi.
Kullanıcı avatarı
nurettin42
Yeni Başlamış
 
Kayıt: 18 Oca 2017 20:24
Meslek: SERBEST
Yaş: 41
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya /selçuklu

Cevap: Tarihte virgülü, noktaya çevirme

İleti#2)  Enes Recep BAĞ » 25 Haz 2018 02:24

Kod: Tümünü seç
TextBox1.Text = Replace(TextBox1.Text, ",", ".")
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Tarihte virgülü, noktaya çevirme

İleti#3)  nurettin42 » 25 Haz 2018 03:46

Enes bey kod için teşekkür ederim.Fakat kodu eklediğim zaman kaydetme hata veriyor(Sayfa8.Range("a" & son) = TextBox1.Text) kodu sildiğim zaman RTATİL sayfasında çalışıyo; ama diger sayfalar açıkken ekleme yapacatığıda işlem tamam diyor fakat tarihi kaydetmiyor.Zahmet olmazsa kodu düzenleye bilirmisiniz
Kullanıcı avatarı
nurettin42
Yeni Başlamış
 
Kayıt: 18 Oca 2017 20:24
Meslek: SERBEST
Yaş: 41
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya /selçuklu

Cevap: Tarihte virgülü, noktaya çevirme

İleti#4)  Enes Recep BAĞ » 25 Haz 2018 22:53

Nurettin Bey,
Çalışmanızda sayfa8 diye bir sayfa yok, bahsettiğiniz sayfa, sayfa11.
Siz sayfa8leri sayfa11 olarak değiştirip dener misiniz?
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim son As Long
TextBox1
.Text Replace(TextBox1.Text","".")
With Sheets("RTATİL")
For 
Sat 1 To Cells(65536"a").End(xlUp).Row
If Cells(Sat"a") = TextBox1 Then
MsgBox 
"Bu veriden daha önce girilmiş"vbInformation"    KVC         NK"
Exit SubEnd If: Next
son 
Sayfa11.Cells(65536"a").End(xlUp).Row 1
Sayfa11
.Range("a" son) = TextBox1.Text
    
.Cells(son1) = TextBox1.Text
    
.Range("a3:a" son).Sort key1:=.Range("a3"), ORDER1:=xlAscending
  
 End With
MsgBox 
"Kayıt eklendi..."vbInformation"     KVC    NK"
For Each i In Me.Controls
If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then i.Value ""
If TypeName(i) = "OptionButton" Or TypeName(i) = "CheckBox" Then i.Value False
Next i
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Tarihte virgülü, noktaya çevirme

İleti#5)  nurettin42 » 26 Haz 2018 12:09

Enes bey teşekkür ederim.Kod çalışıyo fakat tam istediğim gibi değil ik olarak tarih sıralaması yıla ğöre değil güne göre sıralaması yapıyor. yaptığım kayıtlar aşağıda.yardımcıolabilirseni sevinirim.
01.01.2017
01.01.2018
02.01.2016
02.02.2018
02.03.2018
03.01.2016
03.01.2019
03.03.2018
04.01.2017
04.05.2018
05.01.2018
Kullanıcı avatarı
nurettin42
Yeni Başlamış
 
Kayıt: 18 Oca 2017 20:24
Meslek: SERBEST
Yaş: 41
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya /selçuklu

Cevap: Tarihte virgülü, noktaya çevirme

İleti#6)  Enes Recep BAĞ » 26 Haz 2018 14:04

Sayfa11.Range("a" & son) = TextBox1.Text bunu value olarak deneyin olmazsa bakayım.

Sayfa11.Range("a" & son) = TextBox1.value
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Tarihte virgülü, noktaya çevirme

İleti#7)  nurettin42 » 26 Haz 2018 21:31

Enes bey olmadı yine güne ğöre sıralyo.Zahmet veriyorum yardımınız için çok saolun
Kullanıcı avatarı
nurettin42
Yeni Başlamış
 
Kayıt: 18 Oca 2017 20:24
Meslek: SERBEST
Yaş: 41
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya /selçuklu

Cevap: Tarihte virgülü, noktaya çevirme

İleti#8)  katip16487 » 27 Eyl 2018 12:17

Merhabalar, konuyu yeniden canlandırmış olmak istemiyorum, ancak yeni konu açmadan buradan sonuca ulaşabileceğimi düşünüyorum.

UserForm oluşturmada yeniyim, genelde işlerimi formüllerle hallediyordum, ancak UserForm öğrenme isteği duydum ve buna göre bişeyler öğrenip yaptım.

İçinde birden çok TextBox bulunan bir UserForm oluşturdum. TextBox'ların tamamına Ondalık Ayracı (,) (virgül) olarak veri girmek ve bu veriyi bu şekilde ilgili hücrelere aktarmak istiyorum. TextBox'lara bu yönde veri giriş kısıtlaması uygulama istiyorum.

Örneğin, kullanıcı 1.135,90 yazabilsin, 1.135.90 yazamasın yada yazdığı veri ne olursa olsun veriyi hücreye 1.135,90 şeklinde aktarsın.

TextBox1.Text = Replace(TextBox1.Text, ",", ".")

Açıkçası bu kodu nereye yazmam gerektiğine yada tüm textboxlar için tek bir şekilde bunu yapabileceğim bir yer olup olmadığı konusunda bi sonuca ulaşamadım.


Sayfamda oluşturduğum KAYDET butonunun CommandButton kodu;

Private Sub CommandButton1_Click()
RowCount = Worksheets("verigiris").Range("a1").CurrentRegion.Rows.Count
With Worksheets("verigiris").Range("a1")
.Range("c1").Value = ComboBox1.Value
.Range("c2").Value = ComboBox2.Value
.Range("c3").Value = TextBox1.Value
.Range("c4").Value = TextBox2.Value
.Range("c6").Value = TextBox3.Value
.Range("b7").Value = ComboBox3.Value
.Range("b8").Value = ComboBox4.Value
.Range("b9").Value = ComboBox5.Value
.Range("b10").Value = ComboBox6.Value
.Range("b11").Value = ComboBox7.Value
.Range("c13").Value = ComboBox8.Value
.Range("c14").Value = ComboBox9.Value
.Range("E4").Value = TextBox4.Value
.Range("E5").Value = TextBox5.Value
.Range("E6").Value = TextBox6.Value
.Range("E7").Value = TextBox7.Value
.Range("E8").Value = TextBox8.Value
.Range("E9").Value = TextBox9.Value
.Range("G5").Value = TextBox10.Value
.Range("G6").Value = TextBox11.Value
.Range("G7").Value = TextBox12.Value
.Range("G8").Value = TextBox13.Value
.Range("G9").Value = TextBox14.Value
Unload Me

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

End With

End Sub

İlgileneceklerin tamamına teşekkür ederim. Kolay gelsin...
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


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 0 misafir

Bumerang - Yazarkafe