Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 01-04-2017, 18:07   #31
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,529
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

sutun

yerine;

sutun-1 yada sutun+1 yazarak bir önceki ve bir sonraki sütundan veri alabilirsiniz.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 01-04-2017, 21:58   #32
ismailozkan4224
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
sutun

yerine;

sutun-1 yada sutun+1 yazarak bir önceki ve bir sonraki sütundan veri alabilirsiniz.

selamün aleyküm. ömer bey dediğinizi yaptım. ancak
textbox41-50 arası bir sonraki sütunun 14. satırı
textbox51-60 arası bir sonraki sütunun 24. satırı
textbox61-70 arası bir sonraki sütunun 34. satırı
textbox71-80 arası bir sonraki sütunun 44. satırı gösteriyor. yani veriler hep aynı.yanlışım nerde acaba?

Private Sub ComboBox1_Change()

For i = 1 To 10
sutun = ComboBox1.ListIndex + 4
Controls("TextBox" & i) = Cells(i + 3, sutun)
Next i

For z = 11 To 20
Controls("TextBox" & z) = Cells(z + 3, sutun)
Next z

For k = 21 To 30
Controls("TextBox" & k) = Cells(k + 3, sutun)
Next k

For t = 31 To 40
Controls("TextBox" & t) = Cells(t + 3, sutun)
Next t
------------------------------------------------------------
For j = 41 To 50
Controls("TextBox" & j) = Cells(i + 3, sutun + 1)
Next j

For y = 51 To 60
Controls("TextBox" & y) = Cells(z + 3, sutun + 1)
Next y

For n = 61 To 70
Controls("TextBox" & n) = Cells(k + 3, sutun + 1)
Next n

For m = 71 To 80
Controls("TextBox" & m) = Cells(t + 3, sutun + 1)
Next m


End Sub
ismailozkan4224 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-04-2017, 22:19   #33
ismailozkan4224
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

ömer bey nihayet elimden geldiği kadarıyla düzenledim.

Private Sub ComboBox1_Change()

For i = 1 To 10
sutun = ComboBox1.ListIndex + 4
Controls("TextBox" & i) = Cells(i + 3, sutun)

For z = 11 To 20
Controls("TextBox" & z) = Cells(z + 3, sutun)
Next z

For k = 21 To 30
Controls("TextBox" & k) = Cells(k + 3, sutun)
Next k

For t = 31 To 40
Controls("TextBox" & t) = Cells(t + 3, sutun)
Next t

For j = 41 To 50
Controls("TextBox" & j) = Cells(j - 37, sutun + 1)
Next j

For y = 51 To 60
Controls("TextBox" & y) = Cells(y - 37, sutun + 1)
Next y
For n = 61 To 70
Controls("TextBox" & n) = Cells(n - 37, sutun + 1)
Next n
For m = 71 To 80
Controls("TextBox" & m) = Cells(m - 37, sutun + 1)
Next m
Next i
End Sub
ismailozkan4224 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-04-2017, 00:30   #34
ismailozkan4224
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

iyi akşamlar. aşağıda kodla ayrı ayrı verileri bulabiliyorum.ancak kırmızı bölümdeki kodları for p döngüsünün olduğu bölümde ve textboxlarda nasıl birleştirebilirim. yani şöyle yazmasını istiyorum. 1 / A &"-- "&90 ŞEKLİNDE 1 / A -- 90 olacak. for i ile başlayan textboxlarla for p diye başlayan textboxlar for p nin olduğu textboxlarda birleşecek

Private Sub ComboBox1_Change()

For i = 1 To 10
sutun = ComboBox1.ListIndex + 4
Controls("TextBox" & i) = Cells(i + 3, sutun)

For z = 11 To 20
Controls("TextBox" & z) = Cells(z + 3, sutun)
Next z

For k = 21 To 30
ContFor p = 121 To 130
Controlsrols("TextBox" & k) = Cells(k + 3, sutun)
Next k

For t = 31 To 40
Controls("TextBox" & t) = Cells(t + 3, sutun)
Next t

For p = 121 To 130
Controls("TextBox" & p) = Cells(p - 117, sutun - 3)
Next p




'------------------------------------------------
For j = 41 To 50
Controls("TextBox" & j) = Cells(j - 37, sutun - 1)
Next j

For y = 51 To 60
Controls("TextBox" & y) = Cells(y - 37, sutun - 1)
Next y
For n = 61 To 70
Controls("TextBox" & n) = Cells(n - 37, sutun - 1)
Next n
For m = 71 To 80
Controls("TextBox" & m) = Cells(m - 37, sutun - 1)
Next m
'-------------------------------------------------
For c = 81 To 90
Controls("TextBox" & c) = Cells(c - 77, sutun - 2)
Next c

For d = 91 To 100
Controls("TextBox" & d) = Cells(d - 77, sutun - 2)
Next d

For f = 101 To 110
Controls("TextBox" & f) = Cells(f - 77, sutun - 2)
Next f

For g = 111 To 120
Controls("TextBox" & g) = Cells(g - 77, sutun - 2)
Next g
Next i
End Sub

Bu mesaj en son " 02-04-2017 " tarihinde saat 00:36 itibariyle ismailozkan4224 tarafından düzenlenmiştir....
ismailozkan4224 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-04-2017, 01:08   #35
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,529
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

P döngüsünün olduğu bölüm aşağıdakiyle değiştirin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
For p = 121 To 130
    Controls("TextBox" & p) = Cells(p - 117, sutun - 3) & "--" & Cells((p - 120) + 3, sutun)
Next p
Mantığı kırmızı bölümü yani i döngüsünde kullandığınız bölümü istediğiniz birleştirmeyi yapıp, i yerine (p - 120) yazarak yine aynı sayı değerlerini üretiriz.

.
__________________
.
Ömer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 03-04-2017, 15:23   #36
ismailozkan4224
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 53
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
P döngüsünün olduğu bölüm aşağıdakiyle değiştirin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
For p = 121 To 130
    Controls("TextBox" & p) = Cells(p - 117, sutun - 3) & "--" & Cells((p - 120) + 3, sutun)
Next p
Mantığı kırmızı bölümü yani i döngüsünde kullandığınız bölümü istediğiniz birleştirmeyi yapıp, i yerine (p - 120) yazarak yine aynı sayı değerlerini üretiriz.

.
teşekkür ederim. harika oldu.
ismailozkan4224 Ç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 20:05


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden