Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 30-03-2016, 23:33   #1
afbil
 
Giriş: 29/02/2016
Şehir: Balıkesir
Mesaj: 7
Excel Vers. ve Dili:
2016 Türkçe
Varsayılan Hücrelerden TextBoxlara Veri Aktarma

Sayın Hocalarım;
TextBox ile ilgili bu sitede ve diğer belli başlı sitelerde olanları didik didik ettim. Soracağım şeyle daha doğrusu sorunumla benzer çok şey var ama hiçbirini uyarlayamadım. Sonuçta yazmak zorunda kaldım. İçinden çıkamadığım bir döngü durumu var. Şimdi çalışmamdaki olanı aynen yazıyorumki gelebilecek yardımlarda tekrar uyarlamak gibi bir sıkıntı çıkmasın. İster inanın ister inanmayın tam iki gündür iki satır kod ile uğraşıp duruyorum(siz beceriksizlik de diyebilirsiniz).

Sayfa adı: 5444_TBF, ilgili hücreler: A3:A30
Şimdi:
UserForm üzerinde 140 adet TextBox var. Bunlar, grup grup ilgili sayfadan veri gösterecekler.
İstediğim yardım şu:
TextBox85 den TextBox112 ye kadar sıralı olanlarda, 5444_TBF adlı sayfanın A3:A30 arasındaki veriler görünecek(Formun Initialize olayında). Daha açıkçası: TextBox85=A3'ü, TextBox86=A4'ü........ve son TextBox112=A30'u gösterecek. Bunu döngü ile yapmak istiyorum. Sıralı adlarına göre TextBoxları buluyorum ama sayfadaki A3:A30 arasındaki değerleri bir türlü bulupta textBoxlara yazdıramıyorum. Bu nedenle yardıma ihtiyacım var. Teşekkür ediyor, herkese hayırlı geceler diliyorum.
afbil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-03-2016, 23:42   #2
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Buyurun.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
For i = 85 To 112
    Me.Controls("Textbox" & i).Value = Range("A" & i - 82).Value
Next i
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 00:06   #3
afbil
 
Giriş: 29/02/2016
Şehir: Balıkesir
Mesaj: 7
Excel Vers. ve Dili:
2016 Türkçe
Varsayılan

Hocam, çok çok teşekkürler. Tıkır tıkır çalışıyor. Başka bir değerli hocam da yardım etti, o da çalıştı ancak sizin bu kodunuz çok kısa, çok süper(diğeri 6 satırlık bir kod). Bu küçük ama değeri çok büyük olan "kodunuz" çok kişiye merhem olacaktır. Çünkü durumun tersine olanına çözüm çok ama bu sorunun çözülmüş olanına rastlayamadım. Elleriniz dert görmesin. Tekrar teşekkür ediyorum. İyi geceler sayın Hocam...
afbil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 02:19   #4
afbil
 
Giriş: 29/02/2016
Şehir: Balıkesir
Mesaj: 7
Excel Vers. ve Dili:
2016 Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
For i = 85 To 112
    Me.Controls("Textbox" & i).Value = Range("A" & i - 82).Value
Next i
Değerli Hocam, sevincim kursağımda kaldı. Şimdi de hücrelerden gelen tarih verileri TextBox larda hatalı görünüyor. Kısacası günler ile ayla yer değiştiriyor. Örneğin: hücrede 31.03.2016 ola tarih, gösterildiği TextBox da 03.31.2016 veya 3/1/2016 vb garip tarihler görünüyor.
Velhasıl İmdat! Hocam...
afbil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 02:53   #5
saban20152015
 
Giriş: 06/07/2015
Mesaj: 485
Excel Vers. ve Dili:
2003
Varsayılan

Şöyle bir deneyiniz.

For i = 85 To 112
Me.Controls("Textbox" & i).Value = Format(Range("A" & i - 82).Value,"dd.mm.yyyy")
Next i
__________________
İnsanlık, para karşısında bugün de değer kaybetti.
saban20152015 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 03:16   #6
afbil
 
Giriş: 29/02/2016
Şehir: Balıkesir
Mesaj: 7
Excel Vers. ve Dili:
2016 Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
For i = 85 To 112
Me.Controls("Textbox" & i).Value = Format(Range("A" & i - 82).Value,"dd.mm.yyyy")
Next i
Ey güzel insan! Ne diyeyim gecenin bu vaktinde? Nasıl teşekkür edeyim? Şimdi denedim, sonuç:Mükemmel, harika. Sağol, varol. Allah, bilgini, erdemini artırsın. Ellerin dert görmesin. Çok çok teşekkürler. Sayende uyuyabilirim artık. Hayırlı geceler, saygılar, sevgiler...
afbil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-03-2016, 22:23   #7
afbil
 
Giriş: 29/02/2016
Şehir: Balıkesir
Mesaj: 7
Excel Vers. ve Dili:
2016 Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
For i = 85 To 112
Me.Controls("Textbox" & i).Value = Format(Range("A" & i - 82).Value,"dd.mm.yyyy")
Next i
Hocam, dosyamı çok değerli yardımlarınızla tamamladım. Bugün bir öğrencim incelerken bir şey söyledi. Düşündüm, "doğru, eğer olursa güzel olur" dedim. Olmasa da olur ama dosyayı kullanacak öğrencilerin bu isteği yerine gelse şık olur yani. Hem de beni bir şeyler biliyor diye bellerler
Konu şu:
Dosya aynı. Yani "5444_TBF" sayfası ve "Syf5444_TBF" formu. Sayfadaki C3:C30 da sadece 4 grup isimleri var.Bu grup isimleri değişmiyor(bunlar: "A - Grubu" , "B - Grubu", "C - Grubu", "D - Grubu")
Yukarıda verdiğiniz kodları bu sütuna uyarladım. TextBox'lara geliyorlar. Sorun yok(TextBox28 den TextBox57 ye taşınıyorlar). Delikanlının istediği, bu grup isimleri TextBox'lara gelince, ilgili satırlarda kolayca dikkat çekmeleri için renklerinin (BackColor) farklı olması. Yani "A - Grubu" olanlar siyah, "B - Grubu" olanlar mavi vb. Ben de daha sade olsun diye istenince renklensinler dedim. Daha iyi olur dediler. Şimdi:
4 tane OptionButton koydum. A Grubunu renklendir, B Grubunu renklendir, C Gru....... başlıkları yazdım.
TextBox lara taşınmış olan Grup sütunu duruyor. Kullanan, hangi grubu renklendirmek istiyorsa sadece o değeri taşıyan TextBox'ların arkaplan rengi siyah olsun. Örneğin: A Grubunu Renklendir tıklandığında sadece "A - Grubu" yazılı olan kutular siyah olsun. B'yi tıklarsa "B - Grubu" yazılı olan kutular siyah olsun. C'yi isterse c ler, D'yi tıklarsa D'ler. Tabii her değişik grup tıklandığında bir önceki tıklanmış olanın da eski rengine dönmesi gerek. Yani her tıklana siyah olarak kalırsa bir anlamı olmaz.
Böyle yapabilme imkanı varsa ve sizi fazla rahatsız etmeyecekse bu ilk tercihim. Yok eğer olmuyorsa bunlar taşınırken farklı renklerle olsunlar. Hep öyle görünsünler.
Bu arada bana "kutuların BackColor renklerini tasarımdayken değişik yapın" demek aklınıza gelebilir. Ancak bu kutu değerleri sayfadan geliyorlar. Sayfada da bunlar değişik sıralarda olabiliyorlar. Yani sıraları sabit değil. Veya şöylede olabilir: Taşındıkları hücrenin arka plan renginide alabilirlerse bu da olur. Sayfada "koşullu biçimlendirmeyle" zaten renklendirmişiz.
Biraz uzun oldu, hoşgörün lütfen.
Teşekkür ediyor hayırlı geceler diliyorum.
afbil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-04-2016, 03:06   #8
saban20152015
 
Giriş: 06/07/2015
Mesaj: 485
Excel Vers. ve Dili:
2003
Varsayılan

Merhabalar, uzun uzun güzelce açıklama yapmışsınız ama dosyanızı göremediğimiz için anlattıklarınız kısmen havada kalıyor. Şöyle ki siz A Grubunu Renklendir'i seçtiğinizde hangi textboxların rengi siyah olacak. Yani textbox isimleri (veya sıraları) nedir ?

En iyisi ben bir örnek ekleyeyim, siz kendinize uyarlamaya çalışın.

Link = http://www.dosya.tc/server7/lvg284/Ornek.rar.html
__________________
İnsanlık, para karşısında bugün de değer kaybetti.
saban20152015 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-04-2016, 06:38   #9
afbil
 
Giriş: 29/02/2016
Şehir: Balıkesir
Mesaj: 7
Excel Vers. ve Dili:
2016 Türkçe
Varsayılan

Hocam, haklısınız. Durumu hoş görünüze havale ediyor yardım istediğim dosyayla ilgili sayfa ve form örneğini ekliyorum. Çok teşekkür ediyorum.
Örnekle çok uğraştım, sabah oldu. Size dönerek rahasız etmek zorunda kaldım.
Teşekkür ediyorum.

Link = http://s6.dosya.tc/server6/wzj26t/Ornek.rar.html
afbil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-04-2016, 15:09   #10
afbil
 
Giriş: 29/02/2016
Şehir: Balıkesir
Mesaj: 7
Excel Vers. ve Dili:
2016 Türkçe
Varsayılan

Nihayet başardım Hocam. Sabah yeter artık derken bırakamadım. Örnek dosyanızdaki kodları karıştıra karıştıra, ekleye çıkara derken yakaladım. Tam istediğim gibi çalışıyor nihayet.
Yardımcı olan, ilgilenen herkese teşekkür ediyorum.
Kodları aşağıya ekledim. Benzer çalışması olanlara bir faydamız olur ümidiyle. İsteyen arkadaşlar, linkte verdiğim dosyaya bu kodları ekler ve çalıştırırlar ise derdimi ve muradımı anlarlar.
Tek farkı, kodlarda Controls için kullanılan "gb" yerine "TextBox" yazılması gerek. Çünkü ben tasarımdaki UserForm üzerinde TextBox'ların adını "gb" olarak değiştirmiştim.
Saygılarımla...

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub OptionButton1_Click()
    For r = 3 To 30
        Me.Controls("gb" & r).BackColor = &H80&
     Next r
        
        If OptionButton1 = True Then
    For r = 3 To 30
        If Controls("gb" & r).Text = "A - Grubu" Then
        Me.Controls("gb" & r).BackColor = &H0&
    End If
        Next r
End If
End Sub

Private Sub OptionButton2_Click()
    For r = 3 To 30
        Me.Controls("gb" & r).BackColor = &H80&
     Next r
        
        If OptionButton2 = True Then
    For r = 3 To 30
        If Controls("gb" & r).Text = "B - Grubu" Then
        Me.Controls("gb" & r).BackColor = &H0&
    End If
        Next r
End If
End Sub

Private Sub OptionButton3_Click()
    For r = 3 To 30
        Me.Controls("gb" & r).BackColor = &H80&
     Next r
        
        If OptionButton3 = True Then
    For r = 3 To 30
        If Controls("gb" & r).Text = "C - Grubu" Then
        Me.Controls("gb" & r).BackColor = &H0&
    End If
        Next r
End If
End Sub

Private Sub OptionButton4_Click()
    For r = 3 To 30
        Me.Controls("gb" & r).BackColor = &H80&
     Next r
        
        If OptionButton4 = True Then
    For r = 3 To 30
        If Controls("gb" & r).Text = "D - Grubu" Then
        Me.Controls("gb" & r).BackColor = &H0&
    End If
        Next r
End If
End Sub

Private Sub OptionButton5_Click()
    For r = 3 To 30
        Controls("gb" & r).BackColor = &H80&
     Next r
End Sub
afbil Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 16:55


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden