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, 19:07   #31
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,015
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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-04-2017, 22:58   #32
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 66
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, 23:19   #33
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 66
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, 01:30   #34
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 66
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 01:36 itibariyle ismailozkan4224 tarafından düzenlenmiştir....
ismailozkan4224 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-04-2017, 02:08   #35
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,015
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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-04-2017, 16:23   #36
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 66
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
Eski 26-10-2017, 16:36   #37
ismailozkan4224
Altın Üye
 
Giriş: 22/11/2011
Şehir: konya
Mesaj: 66
Excel Vers. ve Dili:
2007 türkçe
Varsayılan

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
Sorularınızı örnek dosya ile destekleyip detaylı açıklamanızı rica ederim, bu şekilde daha kısa ve net cevaplar alırsınız.

Öncelikle combobox1'e veri alırken kullandığınız kodları change altına değil Initialize altına yazmanızda fayda var. Aşağıdaki örnekte kırmızı satırı eski kod satırından silin ve aşağıdaki kod bloğunu userforma ekleyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Initialize()
    ComboBox1.List = Application.Transpose(Range("F1:CE1"))
End Sub
Diğer isteğiniz olan seçilen sütuna göre işlem yapmayla ilgili bir örnek ekliyorum. Örnek üzerinden diğer mesajlardaki örnek kodlarda aynı mantıkla ilerleyebilirsiniz.

s değişleniyle sütun indisini bulduktan sonra RANGE("F2:F200") yerlerine Range(Cells(2, s), Cells(200, s)) yazmanız yeterli olur. Aşağıdaki örnek gibi.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox1_Change()

 Dim S1 As Worksheet, i As Byte, a As Double, b As Integer, s As Integer
    
 Set S1 = Sheets("1")

 s = ComboBox1.ListIndex + 6 'seçilen değerin hangi sütunda olduğunu bulur
    
 TextBox1.Value = WorksheetFunction.Large(Range(Cells(2, s), Cells(200, s)), 1)

End Sub
.

selamün ömer bey dosyayı eklediğim linki verdim. yardım edebilirseniz sevinirim. şimdiden teşekkürler.


http://s6.dosya.tc/server11/rrz23c/O...eb.tr.xls.html

dosya açılınca 1 nolu sayfada çalışıyorum.
form aç tan user form açılınca (FORM)
listem 50 kişilik gruplardan oluşmaktadır.
2-51 bir şube
52-101 bir şube şeklinde ve 10 şube bulunmaktadır. bunlardan beşi sabahçı beşi öğlencidir. sabahçı ve öğlenciler ayrı ayrı değerlendirilmektedir.
textbox lar sabahçılar(2-251) ve öğlenciler (252-501) satırları arasında ilk dördünü yapmakta ancak beşinci dizeyi yapmamaktadır. kodlar dosyada vardır. ama düzenleyemedim.
ayrıca okul nosu textboxları ilgili satırın d sütunundan
sınıf puanı textboxları ilgili satırın cf sütunundan veri alması lazım.yardım ederseniz sevinirim

Bu mesaj en son " 27-10-2017 " tarihinde saat 11:41 itibariyle ismailozkan4224 tarafından düzenlenmiştir....
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 00:25


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