Belli bir aralığı kaydırma

[Schuba]

arkadaşlar bir konuda yardımınıza ihtiyacım var
yapabilecek olan varsa yardımcı olursa çok sevinirim

şöyleki ekte gönderdiğim dosyada verilerimi görüntülediğim form şeklinde bir excel sayfası var
bu formun alt tarafında servis geçmişi başlığı altında kırmızı çerçeveyle işaretlediğim bir alan var ve o alanın hemen sağ tarafında
ekli dosyada ok işareti ile gösterdiğim
(geliştirici sekmesinden ekle seçeneği ile devam eden Activex denetimlerinin hemen altında) bulduğum bir kaydırma çubuğu var

benim istediğim ise bu kaydırma çubuğınu kaydırdığım zaman sadece kırmızı çerçeveyle işaretli olan alan kaysın formun geri kalanı tamamen sabit kalsın

iyi çalışmalar..........

 

[Asri]

Scrolbar B21 hücresine bağlandı. Özelliklerine min 1, max 50, artış 1 verildi.

Veriler sıralı olmasa bile kaydırma yapabilirsiniz. Sıralı olması için uğraşmayın.

Dim sira As Long

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Byte
    If Intersect(Target, [C2:C2]) Is Nothing Then Exit Sub
    Call ScrollBar1_Change
    
End Sub

Private Sub ScrollBar1_Change()
  Set shveri = Sheets("KAPATILAN FİŞLER")
  verisonsatir = shveri.Cells(Rows.Count, "A").End(3).Row
  kackayit = WorksheetFunction.CountIf(shveri.Range("A1:A" & verisonsatir), [C2])
  kaydir = Round(kackayit / 12)
  
  If kackayit < 12 Then
     Range("C21:Q32").ClearContents
  End If
  
  If kackayit - [B21] <= 10 And kackayit >= 12 Then
     [B21] = [B21] - 1
     Exit Sub
  End If
  
  If kackayit <= 12 Then [B21] = 1

  For say = 13 To 12
      Cells(say + 20, "C").Value = ""
      Cells(say + 20, "D").Value = ""
      Cells(say + 20, "F").Value = ""
      Cells(say + 20, "G").Value = ""
      Cells(say + 20, "M").Value = ""
      Cells(say + 20, "Q").Value = ""
  Next say
  
  say = 0
  kayitsay = 0
  For i = 1 To verisonsatir
     If shveri.Cells(i, "A").Value = [C2] Then
        kayitsay = kayitsay + 1
        If kayitsay >= [B21] Or [B21] = 1 Then
           say = say + 1
           Cells(say + 20, "C").Value = shveri.Cells(i, "C").Value
           Cells(say + 20, "D").Value = shveri.Cells(i, "D").Value
           Cells(say + 20, "F").Value = shveri.Cells(i, "E").Value
           Cells(say + 20, "G").Value = shveri.Cells(i, "F").Value
           Cells(say + 20, "M").Value = shveri.Cells(i, "G").Value
           Cells(say + 20, "Q").Value = shveri.Cells(i, "H").Value
           If say = 12 Then Exit Sub
        End If
     End If
  Next i
End Sub

 

[Schuba]

hocam tekkelimeyle süper oldu allah razı olsun çok güzel oldu günlerce kafa patlatmıştım nasıl olur diye teşekür ederim

yanlız çok küçük bir değişiklik lazım onu nasıl yaparız acaba
şöyleki veri sayfasına herhangi bir veri girince veya değişiklik yapınca otomotik olarak sayfa 1 deki formda güncellenmiyor biliyorsunuz kaydırma çubuğunu tıklamak gerekiyor güncellemek için

bunu güncellemek için kaydırma çubuğunu tıklamasakta sayfa 1 deki formun içinde olan ad soyad hanesine yani SAYFA1(C7) HÜCRESİNE BAĞLASAK olurmu

YANİ (C7) HÜCRESİ DOLU İSE GÜNCELLESİN DEĞİLSE GÜNCELLEMESİN ŞEKLİNDE

 

[Asri]

hocam tekkelimeyle süper oldu allah razı olsun çok güzel oldu günlerce kafa patlatmıştım nasıl olur diye teşekür ederim

yanlız çok küçük bir değişiklik lazım onu nasıl yaparız acaba
şöyleki veri sayfasına herhangi bir veri girince veya değişiklik yapınca otomotik olarak sayfa 1 deki formda güncellenmiyor biliyorsunuz kaydırma çubuğunu tıklamak gerekiyor güncellemek için

bunu güncellemek için kaydırma çubuğunu tıklamasakta sayfa 1 deki formun içinde olan ad soyad hanesine yani SAYFA1(C7) HÜCRESİNE BAĞLASAK olurmu

YANİ (C7) HÜCRESİ DOLU İSE GÜNCELLESİN DEĞİLSE GÜNCELLEMESİN ŞEKLİNDE

Örnek veri paylaşır mısınız? Boşuna uğraşmayalım

 

[Schuba]

Belli alanı kaydırma

hocam bir seyahetten ötürü bilgisayarın başına yeni oturdum kusura bakmayın
anca cevap yazıyorum bu arada evet örnek veri göndermeliydim.

hocam bir dosya ekledim dosyada gerekli örnek veriler var
ve dosyayı yeniden düzenledim tam olarak istediğim aslında şudur

ekli dosyada 3 sayfa var (müşteri listesi- form- ve - kapatılan fişler)diye
dikkat ederenis müşteri listesi sayfasındaki müşteri isimlerinin üzerine iki kere tıklıyınca formun içine üzerini tıkladığım müşterinin bilgileri geliyor

kaydırma çubuğuyla alakalı istediğime gelincede hani bilgilerin güncellenmesi için kaydırma çubuğunu tıklıyoruz ya tıklamasakta
form sayfasındaki (C2) hücresine gelen cari koduna göre kapatılan fişler sayfasındaki o cari koduna ait kayıtlar otomatik olarak form sayfasındaki kırmızı çerçeveli servis geçmişi alanında otomatik güncellensin

ben aslında bunu kapatılan fişler sayfasındaki bilgileri cari koduna göre formüllerle başka bir sayfaya çekip sizin yazdığınız kodlarla ordan alarak kırmızı çerçeveli alanda göstermeyi düşündüm

ama bunları hiç formüllere gerk kalmadan yapabileceğimiz kodlar varsa tabi çok daha güzel olur olmayacaksada en azından sadece bu kaydırma çubuğunu tıklamaktan kurtarsanız yeter

mesela daha önce dediğim gibi form sayfasındaki (C2) hücresi dolu ise güncellesin şeklinde olabilir

hocam herşey çok güzel oldu bu konudada bana yardımcı olursanız çok sevinirim iyi çalışmalar.............

 

[Schuba]

hocam bir önceki mesajıma bir baksanız çözemedim bir türlü.

 

[Asri]

hocam bir önceki mesajıma bir baksanız çözemedim bir türlü.

Kod ve dosya güncellendi.
Verilerin sıralı olması için uğraşmayın. Sırasız olsa bile kaydırma yapacaktır.

 

[Schuba]

Hocam çok teşekkür edrerim tam istediğim gibi oldu

fakat enson güncellediğiniz dosyanın kaydırma çubuğu stabil çalışmıyor
örneğin daha önce yaptığınız (örnek dosya9) gibi değil bağzen takılıyor bağzen verileri çekmiyor (örnek dosya9) ile karşılaştırırsanız görüceksiniz
mesela
(örnek dosya 9) da tek tek iniyor veri bittiği zaman boş satırlarla devam ediyor tutup çekdiğimiz zaman gayet güzel veriler kayıyo ama bunda böyle değil sebebi nedir acaba...