TextBox içine uyarı yazısı...

[ExcelF1]

Textbox13'ün Change olayındaki aşağıda belirtilen yeri düzeltip dener misiniz.

Private Sub TextBox13_Change() 'KİŞİ ARA
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox13.Text = "" Then
ListBox1.RowSource = "satış!A1:AH" & Sheets("satış").[A65536].End(xlUp).Row
Exit Sub
End If

Sanırım bu probleminizi çözecektir.

 

[Emine Şahin]

Çalışma mantığı bu şekilde. Ben kodlardan anlamadığım için, sorduğum yada bulduğum kodlarla buraya kadar geldim. Hatalar olabilir. Haklısınız. Hedefe ulaşırken kodlarla uzun bir yol izlemişte olabilirim. Belki daha kısa ve mantıklı çözümlerde olabilir.

Cvabınızı bekliycem.
Saygılarımla...

 

[cems]

Sevgili cems;
Hatanın ne olduğu konusunda mutabıkız değil mi? Bunu hata olarak da kabul ediyoruz.

Dosyanız bu şekilde diyor ki ;

Birinci yol YA DA ikinci yol. (Birinde silinebilen yol işaretleri de var )
Sizin hata olarak değerlendirdiğiniz ise
Birinci yol VE ikinci yol

Sonuçta normal bir şey değil. Diyelimki bir program yaptınız ve bir müşteriye bunu bu şekilde kabul ettirdiniz... Mümkün mü? Buradaki maksadım ortada bir sorun var ve çözümü de olmalı. Sonuçta, bu olayı kullanmayıveririm. Sorunu kökten çözmüş olurum. Bence bu da çözüm değil...

Bence her programın bir -kullanamayıcı- müşterisi vardır. İki seçenek :
Programda o özelliği vermemek.
VEYA
Ya da müşteri olmayan hatayı icat etmesin diye resume next yapmak.

VE kullanınca mantıksız Güzel konuydu Sayın Emine Şahin

 

[Emine Şahin]

Textbox13'ün Change olayındaki aşağıda belirtilen yeri düzeltip dener misiniz.

Private Sub TextBox13_Change() 'KİŞİ ARA
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 50, 1 To 65536)
If TextBox13.Text = "" Then
ListBox1.RowSource = "satış!A1:AH" & Sheets("satış").[A65536].End(xlUp).Row
Exit Sub
End If

Sanırım bu probleminizi çözecektir.

Problem çözüldü. Allah razı olsun

 

[ExcelF1]

Amin, cümlemizden inşallah. Hayırlı geceler.

 

[Emine Şahin]

Dosyanız bu şekilde diyor ki ;

Birinci yol YA DA ikinci yol. (Birinde silinebilen yol işaretleri de var )
Sizin hata olarak değerlendirdiğiniz ise
Birinci yol VE ikinci yol



Bence her programın bir -kullanamayıcı- müşterisi vardır. İki seçenek :
Programda o özelliği vermemek.
VEYA
Ya da müşteri olmayan hatayı icat etmesin diye resume next yapmak.

VE kullanınca mantıksız Güzel konuydu Sayın Emine Şahin

İlahi... Güldürdünüz beni gecenin bir vakti. Ben bilmiyorum ama siz bir bilen olarak, çözümü olmayan problem olamaz diye konuya bakmalıydınız. Ben şayet her konuya öyle bakıyorum. Belki Karadenizliliğimizin verdiği bir inattır.

İyi geceler diliyorum cems

Amin, cümlemizden inşallah. Hayırlı geceler.

İsminizi bilmiyorum. Forumlarda bu konulara çok takılırım...
O yüzden adınızla hitap edemiyorum...
Size de hayırlı geceler.

 

[ExcelF1]

Emine Hanım, ismin bir önemi yok. Önemli olan insanlara yardımcı olabilmek. "Allah Razı Olsun" denilmesi ise şahsen benim için çok daha önemli. Çünkü Yaradanın kimin rızasını kabul edeceğini kim bilebilir ?

Ve nick'im ile hitap etmeniz yeterlidir.

 

[cems]

İlahi... Güldürdünüz beni gecenin bir vakti. Ben bilmiyorum ama siz bir bilen olarak, çözümü olmayan problem olamaz diye konuya bakmalıydınız. Ben şayet her konuya öyle bakıyorum. Belki Karadenizliliğimizin verdiği bir inattır.

İyi geceler diliyorum cems

9 No lu mesaj

Verilere tıkladığınızda hatanın bundan kaynaklı olduğuna emin misiniz?

İyi geceler

 

[ulutanas]

Bütün hata benden kaynaklanıyormuş kusura bakmayın lütfen gece bu saate kadar uğraştırdım sizi

 

[cems]

Bütün hata benden kaynaklanıyormuş kusura bakmayın lütfen gece bu saate kadar uğraştırdım sizi

Ne demek Bence bütün hata Bill Gates'in , okumayıp windows office ne varsa buldu piyasaya sürdü biz de müptelası olduk

 

[Emine Şahin]

Merhaba arkadaşlar.
Bu uygulamayı başka userforma nasıl eklerim.
Birkaç tane userformum var. uyguladığım userformdan textboxlarla
başka userforma uygulayacağım textbaxlar aynı adla geliyor?

 

[ulutanas]

diğer dosyalarınızı ekleyin ona göre bir çözüm yolunu buluruz inşallah.

 

[ExcelF1]

İşinizi görür mü bilmem ama, userformunuzu export - import etmeyi deneyebilirsiniz.

 

[cems]

Merhaba arkadaşlar.
Bu uygulamayı başka userforma nasıl eklerim.
Birkaç tane userformum var. uyguladığım userformdan textboxlarla
başka userforma uygulayacağım textbaxlar aynı adla geliyor?

Gerçi ben bu mesajı yazarken konuda baya denemeler de yapmış ve ilerlemiş olabilirsiniz ama, bildiğim kadarı ile ve doğruysa sadece multipage sayfalarında sizin dikkat ettiğiniz bu ayrıntı sorun çıkarır. Ayrı ve farklı isim taşıyan userformlarda bu bir avantaj olmalı, zira altında hazır kodlarıyla birlikte geliyor olmalı.
Sayın ExcelF1 'in önerdiği gibi userformu dışarıya export edip tekrar içeriye farklı adla içeriye import ederseniz birebir aynı ikinci userformunuz olur.Sonra üzerinde değişikliklerinizi yapmak çok az vaktinizi alır.

 

[Emine Şahin]

Cevaplarınız için teşekkür ederim.
Export / ımport olayını bilemiyorum. Ama bir deneme yaptım. Export ettiğim dosyayı
import ederken hata veriyor. Almıyor maalesef. Burada yapmak istediğim umarım anlaşılmıştır.
Öğrendiğim kadarıyla "Initialize" olayı bir kere kullanılabiliyor. Buradaki bir kere kullanılabilir olayı
tek çalışma kitabına mı has yoksa tekbir user_form'a mı has?

Aynı çalışmada farklı bir ad ile açtığım "rapor" formum var. Burada oluşturduğum bir TextBox,
TextBox1 diye başlıyor. Dolayısı ile satış adındaki değer User_formumda da aynı ad ile bir TextBox olduğunda
hata vereceğini düşünüyorum. Bu yüzden danışmak istedim.

Saygılarımla.

 

[cems]

Cevaplarınız için teşekkür ederim.
Export / ımport olayını bilemiyorum. Ama bir deneme yaptım. Export ettiğim dosyayı
import ederken hata veriyor. Almıyor maalesef. Burada yapmak istediğim umarım anlaşılmıştır.
Öğrendiğim kadarıyla "Initialize" olayı bir kere kullanılabiliyor. Buradaki bir kere kullanılabilir olayı tek çalışma kitabına mı has yoksa tekbir user_form'a mı has?

Aynı çalışmada farklı bir ad ile açtığım "rapor" formum var. Burada oluşturduğum bir TextBox,
TextBox1 diye başlıyor. Dolayısı ile satış adındaki değer User_formumda da aynı ad ile bir TextBox olduğunda
hata vereceğini düşünüyorum. Bu yüzden danışmak istedim.

Saygılarımla.

Uzun yol : Yeni bir userformu aynı boyutta açın, ilk userformdaki nesneleri hepsini kopyala yapıştır ile diğerine aktarın, sonra kod kısmına geçin tüm kodları diğerine aktarın.

Userformun adı farklı olmak zorundadır ve textbox adı aynı olsa da hata vermemesi gerekir.
"Initialize" olayı userform başına bir kere kullanılsa da -Call- (çağır) yöntemi ile modülden kod çalıştırarak başka bir (userform açılırken şunu yap ) işlevi daha verebilirsiniz.

Ben bazen konuyu günlük mantığa atarak anlamak ya da izah etmek yolunu seçerim , bu sanal değil fiziksel düşünülmesi, ayrıca konunun pozitifleşip yumuşaması ama daah hızlı algılanması için bir yöntemdir , umarım bu rahatsız edici değildir.

Bir müteahhitsiniz diyelim , ikiz inşaat yapıyorsunuz, iki bina birebir aynı adları farklı : Temel ve İsmail binalarında kat6 aynı mıdır ? Değil midir ?

 

[Emine Şahin]

Teşekkür ederim cems Bey.
Gayet açık anlatmışsınız. Anladığım kadarı ile mümkün ama benim yapabilmem için üzerinden 40 sene geçmesi gerek.
Bir çaresine bakacağız artık.

Ha unutmadan Temel ve İsmail binalarında 6. kat aynıdır. Elbet proje plan vs. aynı ise.
Amam birde şöyle düz mantık düşünürsek. Her iki bina kalörifer tesisatlı. Birtane de kalöriferci var. Her iki binanın yakıcı vazifesini bir kişiye yüklersek yorucu olur hatta işler karışabilirde, değil mi?

 

[cems]

Her iki bina kalörifer tesisatlı. Birtane de kalöriferci var. Her iki binanın yakıcı vazifesini bir kişiye yüklersek yorucu olur hatta işler karışabilirde, değil mi?

Call olayı ile bu karışmadan şu şekilde halledilebilir.
Temel binasının kalorifer tuşuna -Call > İsmail binasının kaloriferini çalıştır- koyduğunuzda ilk binanın kaoriferi çalışmaya başlarken ikinci binanın kaloriferi de çalışır. Yani tek initialize.

Bir mektup YA ismaile YA temel'e gelir . Yani bence aynı değildir işleve sokulunca.

 

[Emine Şahin]

Ben kendimi terazinin kefesine koyarak tarttım.
Vakit buldukça bu konuyu deniycem inşallah.
Değerli katkılarınız için teşekkür ederim.

 

[ExcelF1]

Uzun yol : Yeni bir userformu aynı boyutta açın, ilk userformdaki nesneleri hepsini kopyala yapıştır ile diğerine aktarın, sonra kod kısmına geçin tüm kodları diğerine aktarın.

Anlattığınız Userform export - import olayıdır. 1 dk. sürmez.

Ayrı ve farklı isim taşıyan userformlarda bu bir avantaj olmalı, zira altında hazır kodlarıyla birlikte geliyor olmalı.
Sayın ExcelF1 'in önerdiği gibi userformu dışarıya export edip tekrar içeriye farklı adla içeriye import ederseniz birebir aynı ikinci userformunuz olur.Sonra üzerinde değişikliklerinizi yapmak çok az vaktinizi alır.

Userform isimleri aynı ise, export yapmadan ismini değiştiriverin. Ve evet, export edilen form, üzerindeki tüm nesneler ve kodlarıyla birlikte komple taşınmış olacaktır.

Yine 1 kezde ben hatırlatayım,

Emine Hanım, export - import yaparken hata aldım demişsiniz. Eğer export edilen bir form, import edilirken, aynı isimde bir form var ise, hata almanız normaldir. Şöyleki, userform1 export ettiniz, asıl dosyanızı açtınız ve import etmek istediniz. Asıl dosyanızda userform1 isimde form var ise hata alırsınız.

Bir de lütfen sorularınızı daha net bir biçimde sorunuz. Dosyanızda 2 ayrı userform var, her ikisinde de Textbox1 var, çakışır mı diye soruyorsanız, hayır çakışmaz. Zaten 1 form üzerinde 2 tane (aynı tipte) aynı isimli nesne oluşturamazsınız. (2 adet textbox1, 2 adet combobox1, 2 adet label1 gibi.)
VBA zaten bu isimlendirmeye müsade etmeyecek ve ismi değiştirmeniz için sizi uyaracaktır, deneyebilirsiniz.

Eğer yok benim bir userformum var, diğer userform üzerindeki nesneleri mevcut userformun üzerine taşımak istiyorum (yani 2 ayrı userformu 1 tane haline getirmek istiyorum derseniz), malesef nesnelerin isim çakışmalarından dolayı gerekli düzeltmeleri hem form, hem kodlarınız üzerinde yapmak zorundasınız.