[Yardım]  SpinButton ile Hücre Değerlerini Başka Hücreye Yazdırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

SpinButton ile Hücre Değerlerini Başka Hücreye Yazdırma

İleti#1)  ercan_60 » 10 Oca 2020 22:05

Ekte bir örnek dosyam var. FORM ve DATA sheetleri mevcut. FORM çalışma sayfasına spinbutton ekledim. SpinButton sağ ve sol tuşlarına tıkladıkça DATA çalışma sayfasında yer alan 3,4,5,6.... satırlardaki verileri FORM sayfasındaki başlık bölümüne yani 2. satıra yazsın istiyorum. SpinButton sağ ve sol tuşları tıklandıkça DATA sayfasındaki veriler FORM sayfasında değişsin istiyorum.

Ekteki dosyada yazdırmayı yapıyorum ancak tek veri geliyor. Diğer verileri sırasıyla yazdıramadım. Yardımlarınızı talep ediyorum. Teşekkür ederim.

test.zip
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#2)  OmerFaruk72 » 10 Oca 2020 23:08

Dosyanız boş
Kullanıcı avatarı
OmerFaruk72
Siteye Alışmış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 48
İleti: 253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#3)  ercan_60 » 11 Oca 2020 16:14

Dosyayı sıkıstırırken problem olmuş. Boş olarak arşivlemiş. Tekrar yüklüyorum.

test.zip
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#4)  OmerFaruk72 » 11 Oca 2020 18:35

FORM sayfanızdaki mevcut kodu silerek aşağıdakileri yapıştırın.
Birincisinde, SpinButton minimum ve maksimum değerlerini DATA sayfasındaki 3.satırdan son satıra kadar olan dolu satır sayısına göre hesaplanır.
İkinci kod da istediğiniz verilerin DATA sayfasından getirilmesidir.

Kod: Tümünü seç
Private Sub Worksheet_Activate()
SpinButton1.Max = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 2
SpinButton1.Min = 1
End Sub

Private Sub SpinButton1_Change()
Cells(2, 3) = Worksheets("DATA").Cells(SpinButton1.Value + 2, 2)
Cells(2, 5) = Worksheets("DATA").Cells(SpinButton1.Value + 2, 3)
Cells(2, 7) = Worksheets("DATA").Cells(SpinButton1.Value + 2, 4)
End Sub
Kullanıcı avatarı
OmerFaruk72
Siteye Alışmış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 48
İleti: 253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#5)  ercan_60 » 12 Oca 2020 11:03

Teşekkür ederim. Kod istediğim gibi çalışıyor. Emeğinize sağlık.

Ancak aşağıdaki dosyamda kodu uygulamaya çalıştım. Fakat çalıştıramadım. Spinbutton Max. ve Min. değer satırlarını "Cells(Rows.Count, 2).End(xlUp).Row - 2" tam anlayamadım. Nerede hata yapıyorum bakabilirmisiniz lütfen... ?

Test-1.zip
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#6)  ercan_60 » 12 Oca 2020 11:49

Private Sub Worksheet_Activate()
SpinButton1.Max = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 2
SpinButton1.Min = 1
End Sub

Private Sub SpinButton1_Change()
Cells(9, 1) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 2)
Cells(9, 3) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 3)
Cells(9, 6) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 4)
Cells(9, 9) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 5)
End Sub


Kodları bu şekilde düzenledim. Değerler yerli yerine yazıyor. Ancak DATA sayfasındaki son değer " 26 - Z Hesabı " ndan sonra boşuk da geliyor. Sonlanmıyor ufak bir hata daha var sanırım....
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#7)  OmerFaruk72 » 12 Oca 2020 14:11

Private Sub Worksheet_Activate()
SpinButton1.Max = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 2
SpinButton1.Min = 1
End Sub


DATA sayfanızı değiştirmiş ve ilk satırı kaydırmışsınız.
SpinButton1.Max = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 2 koyu renkli kısımdaki -2 ifadesi ilk satırınızın yeri içindi. Sizin ilk satırınız kaydığı için -2 yerine -6 yazmalısınız

Kod: Tümünü seç
Private Sub Worksheet_Activate()
SpinButton1.Max = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 6
SpinButton1.Min = 1
End Sub
Kullanıcı avatarı
OmerFaruk72
Siteye Alışmış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 48
İleti: 253
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#8)  ercan_60 » 12 Oca 2020 15:23

Dediğiniz gibi yapınca çalıştı.
Konu çözülmüştür. Çok teşekkür ederim sağolun.
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#9)  alican60 » 12 Oca 2020 18:16

Deneyebilir misiniz ?
Kod: Tümünü seç
Private Sub Worksheet_Activate()
    SpinButton1.Max = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 6
    SpinButton1.Min = 1
End Sub

Private Sub SpinButton1_Change()
    son = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 5
    If SpinButton1.Value < son Then
        Cells(9, 1) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 2)
        Cells(9, 3) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 3)
        Cells(9, 6) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 4)
        Cells(9, 9) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 5)
    Else
        MsgBox "son satır"
        Exit Sub
    End If
End Sub
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 40
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#10)  ercan_60 » 13 Oca 2020 23:45

Teşekkürler bu kod ile de son satıra gelindiğinde mesaj veriyor. Güzel olmuş. İlk satır içinde mesaj versin istenirse kod güzel bir şekle gelmiş olacak...
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#11)  ercan_60 » 14 Oca 2020 17:54

Spinbutton son satır hücre değerine geldiğinde "SON SATIR" şeklinde mesaj veriyor. Bunu ilk satır değerini aldığında da "İLK SATIR" şeklinde mesaj verdirebilirmiyiz ?
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#12)  alican60 » 14 Oca 2020 17:56

Buyur hemşehrim. [mersi]
Kod: Tümünü seç
Private Sub Worksheet_Activate()
    SpinButton1.Max = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 6
    SpinButton1.Min = 1
End Sub

Private Sub SpinButton1_Change()
    ilk = 1
    son = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 5
    If SpinButton1.Value < son Then
        Cells(9, 1) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 2)
        Cells(9, 3) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 3)
        Cells(9, 6) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 4)
        Cells(9, 9) = Worksheets("DATA").Cells(SpinButton1.Value + 6, 5)
    Else
        MsgBox "son satır"
        Exit Sub
    End If
    If SpinButton1.Value = 1 Then
        MsgBox "ilk satır"
        Exit Sub
    End If
End Sub
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 40
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#13)  ercan_60 » 14 Oca 2020 23:05

Teşekkür ederim..

Ancak kodda bir sıkıntı var sanki... Bu şekli ile "ilk satır " mesajını veriyor ancak "son satır" mesajını vermiyor.
son = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 6
şeklinde yapınca ilk ve son satır mesajları görüntüleniyor. Fakat bu seferde DATA sayfasına 26. sıra nodan sonra veri girişi olursa bu veri yokmuş gibi çalışıyor.

İlk ve son satır mesajı işine girince iş çıkarttık galiba. Zahmet veriyoruz hakkınızı helal edin lütfen....
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#14)  ercan_60 » 14 Oca 2020 23:44

İlgili satırları aşağıdaki gibi değiştirince (sondaki değerleri 5 ) yapınca sanırım çalıştı iş çözüldü. Tekrar teşekkür ederim zahmetler verdim....

SpinButton1.Max = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 5

son = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row - 5
Kullanıcı avatarı
ercan_60
Yeni Başlamış
 
Kayıt: 09 Oca 2020 08:44
Meslek: bilgisayar
Yaş: 45
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: SpinButton ile Hücre Değerlerini Başka Hücreye Yazdır

İleti#15)  alican60 » 30 Oca 2020 23:12

Mesajınızı yeni gördüm,işinize yaramasına sevindim.


Son güncel tutan ercan_60, 30 Oca 2020 23:12.
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 40
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe