Adres Defteri Yardım...

[halit3]

ekli dosyaya bir bakınız.

 

[ileri]

Teşkkürler Oldu..
TextBox ' a Yazılan Küçük Harfle Yazılan Yazıları Kayıt Yparken Büyük Harf olrak Dönüşürmü acaba

 

[halit3]

bunu denermisiniz.

Private Sub CommandButton2_Click()
sayac10 = 1: UserForm2.Show
Dim m, cev As Integer

m = WorksheetFunction.CountA(Sheets("sayfa1").Range("a2:a65535")) + 2
aktifkayit = m + 1
With Sheets("sayfa1")
.Cells(m, 1) = "K"
.Cells(m, 2) = TextBox1.Text
.Cells(m, 3) = UCase(Replace(Replace((TextBox2.Text), "ı", "I"), "i", "İ"))
.Cells(m, 4) = UCase(Replace(Replace((TextBox3.Text), "ı", "I"), "i", "İ"))
.Cells(m, 5) = TextBox4.Text
.Cells(m, 6) = TextBox5.Text
.Cells(m, 7) = UCase(Replace(Replace((TextBox6.Text), "ı", "I"), "i", "İ"))
.Cells(m, 8) = TextBox7.Text
.Cells(m, 9) = TextBox8.Text
.Cells(m, 10) = TextBox9.Text
.Cells(m, 11) = TextBox10.Text
.Cells(m, 12) = TextBox11.Text
.Cells(m, 13) = TextBox12.Text
End With
CommandButton1_Click
End Sub

 

[ileri]

Private Sub CommandButton2_Click()
sayac10 = 1: UserForm2.Show
Dim m, cev As Integer

m = WorksheetFunction.CountA(Sheets("sayfa1").Range("a 2:a65535")) + 2
aktifkayit = m + 1
With Sheets("sayfa1")
.Cells(m, 1) = "K"
.Cells(m, 2) = TextBox1.Text
.Cells(m, 3) = UCase(Replace(Replace((TextBox2.Text), "ı", "I"), "i", "İ"))
.Cells(m, 4) = UCase(Replace(Replace((TextBox3.Text), "ı", "I"), "i", "İ"))
.Cells(m, 5) = TextBox4.Text
.Cells(m, 6) = TextBox5.Text
.Cells(m, 7) = UCase(Replace(Replace((TextBox6.Text), "ı", "I"), "i", "İ"))
.Cells(m, 8) = TextBox7.Text
.Cells(m, 9) = TextBox8.Text
.Cells(m, 10) = TextBox9.Text
.Cells(m, 11) = TextBox10.Text
.Cells(m, 12) = TextBox11.Text
.Cells(m, 13) = TextBox12.Text
End With
CommandButton1_Click
End Sub

Sarı Renkte bu hatayı alıyorm
n = WorksheetFunction.CountA(Sheets("sayfa1").Range("a 2:a65535")) + 2

 

[halit3]

buraya kopyalarken kayıt esnasında bazı hücrelerin arasını açıyor kırmız renkli yerin arasındaki boşluğu al

m = WorksheetFunction.CountA(Sheets("sayfa1").Range("a 2:a65535")) + 2

 

[ileri]

Teşekkürler Hocam Çok Yardımın Dokundu Walla.
Hakkını nasıl Ödücem Walla : )

 

[halit3]

Teşekkürler Hocam Çok Yardımın Dokundu Walla.
Hakkını nasıl Ödücem Walla : )

iyi çalışmalar

 

[ileri]

iyi çalışmalar

Aranıcak Kelimeyi ararken Kayıt 'ı ListView2 Donuyor Ve dona dona arayacagım Yazıyı yazıyor bu normalmi acaba.
Bu donma Biras Uzun sürüyor.

 

[halit3]

Aranıcak Kelimeyi ararken Kayıt 'ı ListView2 Donuyor Ve dona dona arayacagım Yazıyı yazıyor bu normalmi acaba.
Bu donma Biras Uzun sürüyor.

konunun kapandığını sanıyordum.

donmaması lazım hızlı bir şekilde arar eğer siz dosyada bir değişiklik yaptıysanız ondan olur benim gönderdiğim dosya düzgün çalışıyor

 

[ileri]

İsterseniz dosyanın en güncel halini yollayayımmı.

 

[ileri]

İsterseniz dosyanın en güncel versiyonunu yollayayımmı.

 

[gezgin64]

21 no lu mesaj ekinde yer alan Adres Mustafa.rar dosyasında, Avira antivirüs proğramı tarafından w2000m/constructor.ntvck virüsü bulunduğu belirtiliyor. ilgililerin dikatine

 

[halit3]

20 anti virüs proğramıyla tarandı sonuç aşağıdaki dosyada

 

[ileri]

Dosyada Virüs Yoktur.. Ben Kaspersky 2010 lisaslı sürüm ile tardım bulamadım..