Rehbere eklenecek alanlar

[istanbulcahan]

Hakemlik bas.tarihi; Hakemlik Kurs Yeri;Hakemlik Kurs Öğrt. Hücre başlıkları rehberdeki sihette hücrelerde gözüküyor, form aç tuşuna basınca gözükmüyor. Sorun nasıl düzelir. Örnek dosya ektedir.

 

[Mahir64]

Hakemlik bas.tarihi; Hakemlik Kurs Yeri;Hakemlik Kurs Öğrt. Hücre başlıkları rehberdeki sihette hücrelerde gözüküyor, form aç tuşuna basınca gözükmüyor. Sorun nasıl düzelir. Örnek dosya ektedir.

Merhaba
Eğer form açılınca excel in görünmediğinden bahsediyorsanız Modül1 deki

Sub auto_open()
[COLOR=Red]Application.Visible = False[/COLOR]
REHBER.Show
End Sub
Sub REHBERAC()
[COLOR=Red]Application.Visible = False[/COLOR]
REHBER.Show
End Sub

Kırmızıları silin

 

[istanbulcahan]

Merhaba
Eğer form açılınca excel in görünmediğinden bahsediyorsanız Modül1 deki

Sub auto_open()
[COLOR=Red]Application.Visible = False[/COLOR]
REHBER.Show
End Sub
Sub REHBERAC()
[COLOR=Red]Application.Visible = False[/COLOR]
REHBER.Show
End Sub

Kırmızıları silin

Hayır form açılınca, HAKEMLİK BAS.TARİHİ, HAKEMLİK KURS YERİ,HAKEMLİK KURS ÖĞRT. başlıklargözükmyor.

 

[security]

Merhaba dosyanız ekte...

 

[Mahir64]

Hayır form açılınca, HAKEMLİK BAS.TARİHİ, HAKEMLİK KURS YERİ,HAKEMLİK KURS ÖĞRT. başlıklargözükmyor.

Merhaba
Sayfaya ekledikleriniz kadar da form üzerine Textbox ekleyim kodları düzenlemeniz gerekli.
ListBox1 de A:J arasını aldırmal için TextBox7_Change kodunu bunlada değiştirmeniz gerekli.

Private Sub TextBox7_Change()
Sheets("veri").Activate
Sheets("veri").TextBox1 = TextBox7
Sheets("SUZ").[A1:j65536] = Empty
Sheets("veri").[A1].CurrentRegion.Copy Sheets("SUZ").[A1]
ListBox1.RowSource = "SUZ!A2:j" & Cells(65536, "A").End(xlUp).Row
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "25,75,75,75,75,75,75,75,75,75"
SIRALA = Cells(65536, "A").End(xlUp).Row
Sheets("veri").Range("A2:j" & SIRALA).Sort KEY1:=[B2], ORDER1:=xlAscending
End Sub

 

[istanbulcahan]

Merhaba dosyanız ekte...

Sağolasın. Burada formda gözüken telefon logosunun yerine başka bir logo konabilirmi.

 

[istanbulcahan]

Merhaba
Sayfaya ekledikleriniz kadar da form üzerine Textbox ekleyim kodları düzenlemeniz gerekli.
ListBox1 de A:J arasını aldırmal için TextBox7_Change kodunu bunlada değiştirmeniz gerekli.

Private Sub TextBox7_Change()
Sheets("veri").Activate
Sheets("veri").TextBox1 = TextBox7
Sheets("SUZ").[A1:j65536] = Empty
Sheets("veri").[A1].CurrentRegion.Copy Sheets("SUZ").[A1]
ListBox1.RowSource = "SUZ!A2:j" & Cells(65536, "A").End(xlUp).Row
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "25,75,75,75,75,75,75,75,75,75"
SIRALA = Cells(65536, "A").End(xlUp).Row
Sheets("veri").Range("A2:j" & SIRALA).Sort KEY1:=[B2], ORDER1:=xlAscending
End Sub

Bunda kafam karıştı.Sayfaya ekledikleriniz kadar da form üzerine Textbox ekleyim kodları düzenlemeniz gerekli.
ListBox1 de A:J arasını aldırmal için TextBox7_Change kodunu bunlada değiştirmeniz gerekli.

 

[Mahir64]

Bunda kafam karıştı.Sayfaya ekledikleriniz kadar da form üzerine Textbox ekleyim kodları düzenlemeniz gerekli.
ListBox1 de A:J arasını aldırmal için TextBox7_Change kodunu bunlada değiştirmeniz gerekli.

e-mailden sonra eklediğiniz başlıklara elle mi giriş yapacaksınız yoksa formu kullanarak mı?

 

[istanbulcahan]

e-mailden sonra eklediğiniz başlıklara elle mi giriş yapacaksınız yoksa formu kullanarak mı?

Bilgilerin hepsi aşağı yukarı hazır başka dosyadan copy paste yaparak bilgieri giricem ama sonrada elle girmeye devam edicem

 

[Mahir64]

Bilgilerin hepsi aşağı yukarı hazır başka dosyadan copy paste yaparak bilgieri giricem ama sonrada elle girmeye devam edicem

Anladım.
Ama o alanlar ile ilgili Form üzerinde değişiklik yapamazsınız sadece süz yaptığında görünüz. O alanları devamlı elle müdahale etmeniz gerekli.

 

[istanbulcahan]

Merhaba dosyanız ekte...

Sağolasın.Güzel olmuş...

 

[security]

tekrar merhaba
resimi istediğiniz resimle değişebilirsiniz
ayrıca son eklediğimiz verlerinde textboxlarda görünmesi için 3 adet daha textbox ekleyip o verileride form üzerinde görebilirsiniz..

 

[istanbulcahan]

tekrar merhaba
resimi istediğiniz resimle değişebilirsiniz
ayrıca son eklediğimiz verlerinde textboxlarda görünmesi için 3 adet daha textbox ekleyip o verileride form üzerinde görebilirsiniz..

Sağol. Yalnız resmi copy paste you ile mi yapıştıracağız. orda Çünkü resim yapıştırma kodu gözükmüyor.

 

[security]

Dosyanız ekte son haliyle

 

[Mahir64]

Sayın istanbulcahan size bahsettiğim TextBox olayını sayın security 14 numarı mesajda gerçekleştirmiş.

 

[istanbulcahan]

Dosyanız ekte son haliyle

Muhteşem eline sağlık. Ordaki resmi istediğim zaman nasıl değiştirebilrim.

 

[security]

Rica Ederim...

 

[istanbulcahan]

Rica Ederim...

Tekraren teşekkürler.
Eklemeler yaptım,
Butonlu sıralamalar nasıl yapılabilir.
a)Kurs yılına göre sırala,
b)Ada göre sırala,
c)Kurs yerine göre sırala,
d)Email adreslerini kopyala,
e)Yazıcı ön-izle yazdır,
ve email adreslerini kopyalama nasıl yapılabilir. Bu arada resmiistediğim resimle değiştiremedim.Örnek dosya ektedir.

 

[istanbulcahan]

G ü n c e l

 

[erhan1232]

Dosyanız ekte son haliyle

Merhaba programda fax no kısmına tıkladıktan sonra yukarı ''kaydet'' kısmına çıkıyor acaba bunun aşağı dogru ilerlemesini sağlıya bilimiyiz? yani email kısmına geçiş yapmasını istiyorum.
Birde email in altındaki yeri kayıt yapmıyor.
Şimdiden çok teşekkürler..