[Yardım]  Userfom ScrollBar Kullanımında Sabit Alan Belirleme

UserForm ve üzerine eklenecek nesneler ile ilgili bilgileri bu alanda bulabilirsiniz.

Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#1)  düşünceli » 12 May 2021 13:08

Herkese Merhabalar;
1-Userform da ScrollBar kullanırken üst ve solda kalan veriler sabit kalacak şekilde (Excel sayfa işleminde kullaılan satır ve sütun bölme işlemi gibi) yapılabilir mi?

2-Form üzerine TextBoxları form üzerine dinamik olarak ekliyorum. Verilerimi sayfadan tercihen butonla ve yine tercihen pasif olarak çağırıyorum. Userformdaki TextBox ların dizilimini satır olarak düşünürsek her bir Satırın en sonunda bulunan Checkboxla satır; pasiften aktife/aktiften pasife çevrilebilir mi? Sadece o satıra özel Düzenle/kaydet işlemi yapılabilir mi?

Not: Çalışmada kullanılan nesne ekleme kodları ve üzerinde çalışılan dosya siteden alınmıştır. http://www.excelvba.net/viewtopic.php?f=78&t=176&start=80
ScrollBar kodlarını ise yabancı bir siteden aldım ve olduğu gibi kullandım. Link ekleme konusunda tereddütte kaldım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#2)  düşünceli » 12 May 2021 14:57

Bu arada eklemeyi unutmuşum. Userformda bulunan ScrollBarla İşlem yaparken;

Maus Tekerleği İle : Aşağı Kaydırır
Shift+Maus Tekerleği : Sağa Kaydırır
Ctrl+Maus Tekerleği : Küçültme ve Büyütme İşlemi Yapar
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#3)  düşünceli » 13 May 2021 18:49

Güncel....
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#4)  düşünceli » 14 May 2021 18:02

Güncel...
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

Cevap: Cevap: Userfom ScrollBar Kullanımında Sabit Alan Beli

İleti#5)  düşünceli » 15 May 2021 22:34

düşünceli yazdı:Güncel...
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#6)  halily » 16 May 2021 01:20

dilerim işinize yarar
1 - eklenen class modülünün adı :clsBtnClick
modülün kodu:
Kod: Tümünü seç
Public WithEvents cmdB As MSForms.CheckBox

Private Sub cmdB_Change()
Dim Ctl As Control

TxtBAdi = Replace(cmdB.Name, "cmd_", "TextBox")
For Each Ctl In UserForm1.Controls
If Ctl.Name = TxtBAdi Then Ctl.Enabled = cmdB.Value
Next Ctl

End Sub

2 - Userforma_Nesne_ekleme yapılan değişiklikler
modülün en başına Dim cmdBArray() As New clsBtnClick eklenerek dizi, class modül olarak tanımlandı
3 - textbox isimlendirme değiştirildi "TextBox" & a-2 yerine "TextBox" & ih
4 - checkbox ekleme kodu değiştirildi
Kod: Tümünü seç
X = 10
ReDim Preserve cmdBArray(ih)
Set cmdBArray(ih).cmdB = UserForm1.Controls.Add("Forms.checkbox.1", "cmd_" & ih)
    With cmdBArray(ih).cmdB
.Left = (X * 158.75) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
'.BorderStyle=fmBorderStyleSingle
.BackColor = &H80000004
'.TextAlign=fmTextAlignCenter
'.Enabled=False
.Tag = a & " hy"
End With
ih = ih + 1
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 652
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Userfom ScrollBar Kullanımında Sabit Alan Beli

İleti#7)  düşünceli » 16 May 2021 10:35

halily yazdı:dilerim işinize yarar
1 - eklenen class modülünün adı :clsBtnClick
modülün kodu:
Kod: Tümünü seç
Public WithEvents cmdB As MSForms.CheckBox

Private Sub cmdB_Change()
Dim Ctl As Control

TxtBAdi = Replace(cmdB.Name, "cmd_", "TextBox")
For Each Ctl In UserForm1.Controls
If Ctl.Name = TxtBAdi Then Ctl.Enabled = cmdB.Value
Next Ctl

End Sub

2 - Userforma_Nesne_ekleme yapılan değişiklikler modülün en başına Dim cmdBArray() As New clsBtnClick eklenerek dizi, class modül olarak tanımlandı
3 - textbox isimlendirme değiştirildi "TextBox" & a-2 yerine "TextBox" & ih
4 - checkbox ekleme kodu değiştirildi
Kod: Tümünü seç
X = 10
ReDim Preserve cmdBArray(ih)
Set cmdBArray(ih).cmdB = UserForm1.Controls.Add("Forms.checkbox.1", "cmd_" & ih)
    With cmdBArray(ih).cmdB
.Left = (X * 158.75) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
'.BorderStyle=fmBorderStyleSingle
.BackColor = &H80000004
'.TextAlign=fmTextAlignCenter
'.Enabled=False
.Tag = a & " hy"
End With
ih = ih + 1


Çok teşekkür ederim sayın Halily. 2. sorumda belirttiğim
...Userformdaki TextBox ların dizilimini satır olarak düşünürsek her bir Satırın en sonunda bulunan Checkboxla satır; pasiften aktife/aktiften pasife çevrilebilir mi?
kısmı sayenizde çözüme kavuştu. Emeğinize sağlık.

Yine 2. talebimin devamı olan;
Sadece o satıra özel Düzenle/kaydet işlemi yapılabilir mi?
kısmıyla çalışmam devam ediyor.

1. Talebim olan;
1-Userform da ScrollBar kullanırken üst ve solda kalan veriler sabit kalacak şekilde (Excel sayfa işleminde kullaınlan satır ve sütun dondurma işlemi gibi) yapılabilir mi?
kısmıyla olan çalışmam devam ediyor.

Birde, dikkat ederseniz mausla kaydırma işlemi sırasında nesnelerde titremeler oluyor. Bunun çözümü var mı acaba?
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#8)  halily » 16 May 2021 13:55

1. sorunuzla ilgili bir önerim yok maalesef
dilerim işinize yarar
checkbox pasif olunca kaydeder
Class Modül kod:
Kod: Tümünü seç
Public WithEvents ChkB As MSForms.CheckBox
Private Sub ChkB_Change()
Dim ctl As Control
Dim Sht As Worksheet
Set Sht = ThisWorkbook.Worksheets("Referanslar")
TxtBAdi = Replace(ChkB.Name, "ChkB_", "TextBox")
StrNo = CLng(Replace(ChkB.Name, "ChkB_", ""))
StnNo = 1
With Sht
    For Each ctl In UserForm1.Controls
        If ctl.Name = TxtBAdi Then
             ctl.Enabled = ChkB.Value
           If ChkB.Value = 0 Then .Cells(StrNo, StnNo) = ctl.Value'<==eklenen
        StnNo = StnNo + 1 '<==eklenen
        End If
    Next ctl
End With
End Sub

nesne ekleme kodu: isme ih değeri yerine satır değeri olan a değeri atandı
Kod: Tümünü seç
Sub Nesne_Ekle()
'TEXTBOX-0
X = 10: c = 4
For a = 4 To Cells(Rows.Count, "A").End(3).Row
Set b = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With b
.Value = Cells(a, "A")
.Left = X
.Width = 100
.Top = 16 * c
.Height = 14
.TextAlign = fmTextAlignRight
.BackColor = &H80000005
.BackStyle = fmBackStyleOpaque
.BorderStyle = fmBorderStyleSingle
'.BorderColor=&HC000&
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-1
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "B")
.Left = (X * 1.25) + b.Width
.Width = 60
.Top = 16 * c
.Height = 14
.TextAlign = fmTextAlignCenter
.BackColor = &H80000005
.BackStyle = fmBackStyleOpaque
.BorderStyle = fmBorderStyleSingle
'.BorderColor=&HC000&
.Enabled = False
End With

'''''''''''''''''''''''''''''''''
'TEXTBOX-2
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "C")
.Left = (X * 7.45) + b.Width 'TextBoxuzaklığı
.Width = 88
.Top = 16 * c
.Height = 14
.TextAlign = fmTextAlignCenter
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.Enabled = False
End With

''''''''''''''''''''''''''''''''''
'TEXTBOX-3
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "D")

.Left = (X * 16.45) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

'''''''''''''''''''''''''''''''''
'TEXTBOX-4
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "E")
.Left = (X * 21.65) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

'''''''''''''''''''''''''''''''''
'TEXTBOX-5
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "F")
.Left = (X * 27) + b.Width
.Width = 70
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-6
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "G")
.Left = (X * 34.25) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-7
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "H")
.Left = (X * 39.55) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-8
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "I")
.Left = (X * 42.35) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-9
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "J")
.Left = (X * 47.75) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-10
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "K")
.Left = (X * 53.1) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-11
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "L")
.Left = (X * 55.85) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-12
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "M")
.Left = (X * 61.1) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-13
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "N")
.Left = (X * 63.85) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-14
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "O")
.Left = (X * 69.2) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-15
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "P")
.Left = (X * 72) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-16
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "Q")
.Left = (X * 77.3) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-17
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "R")
.Left = (X * 80) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-18
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "S")
.Left = (X * 85.3) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-19
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "T")
.Left = (X * 88.1) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-20
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "U")
.Left = (X * 93.45) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-21
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "V")
.Left = (X * 96.3) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-22
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "W")
.Left = (X * 99.1) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-23
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "X")
.Left = (X * 102) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-24
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "Y")
.Left = (X * 105) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-25
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "Z")
.Left = (X * 107.88) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-26
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AA")
.Left = (X * 110.88) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-27
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AB")
.Left = (X * 113.7) + b.Width
.Width = 30
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-28
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AC")
.Left = (X * 116.95) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-29
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AD")
.Left = (X * 120.75) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-30
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AE")
.Left = (X * 124.5) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-31
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AF")
.Left = (X * 128.3) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-32
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AG")
.Left = (X * 131.1) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-33
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AH")
.Left = (X * 133.95) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-34
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AI")
.Left = (X * 137.75) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-35
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AJ")
.Left = (X * 140.5) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-36
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AK")
.Left = (X * 144.3) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-37
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AL")
.Left = (X * 148.1) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-38
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AM")
.Left = (X * 153.47) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
X = 10
ReDim Preserve ChkBArray(a)
Set ChkBArray(a).ChkB = UserForm1.Controls.Add("Forms.checkbox.1", "ChkB_" & a)
    With ChkBArray(a).ChkB
.Left = (X * 158.75) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
'.BorderStyle=fmBorderStyleSingle
.BackColor = &H80000004
'.TextAlign=fmTextAlignCenter
'.Enabled=False
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''
c = c + 1
If a = 100 Then X = X + 130: c = 4
Next
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 652
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Userfom ScrollBar Kullanımında Sabit Alan Beli

İleti#9)  düşünceli » 16 May 2021 18:23

halily yazdı:1. sorunuzla ilgili bir önerim yok maalesef
dilerim işinize yarar
checkbox pasif olunca kaydeder
Class Modül kod:
Kod: Tümünü seç
Public WithEvents ChkB As MSForms.CheckBox
Private Sub ChkB_Change()
Dim ctl As Control
Dim Sht As Worksheet
Set Sht = ThisWorkbook.Worksheets("Referanslar")
TxtBAdi = Replace(ChkB.Name, "ChkB_", "TextBox")
StrNo = CLng(Replace(ChkB.Name, "ChkB_", ""))
StnNo = 1
With Sht
    For Each ctl In UserForm1.Controls
        If ctl.Name = TxtBAdi Then
             ctl.Enabled = ChkB.Value
           If ChkB.Value = 0 Then .Cells(StrNo, StnNo) = ctl.Value'<==eklenen
        StnNo = StnNo + 1 '<==eklenen
        End If
    Next ctl
End With
End Sub

nesne ekleme kodu: isme ih değeri yerine satır değeri olan a değeri atandı
Kod: Tümünü seç
Sub Nesne_Ekle()
'TEXTBOX-0
X = 10: c = 4
For a = 4 To Cells(Rows.Count, "A").End(3).Row
Set b = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With b
.Value = Cells(a, "A")
.Left = X
.Width = 100
.Top = 16 * c
.Height = 14
.TextAlign = fmTextAlignRight
.BackColor = &H80000005
.BackStyle = fmBackStyleOpaque
.BorderStyle = fmBorderStyleSingle
'.BorderColor=&HC000&
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-1
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "B")
.Left = (X * 1.25) + b.Width
.Width = 60
.Top = 16 * c
.Height = 14
.TextAlign = fmTextAlignCenter
.BackColor = &H80000005
.BackStyle = fmBackStyleOpaque
.BorderStyle = fmBorderStyleSingle
'.BorderColor=&HC000&
.Enabled = False
End With

'''''''''''''''''''''''''''''''''
'TEXTBOX-2
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "C")
.Left = (X * 7.45) + b.Width 'TextBoxuzaklığı
.Width = 88
.Top = 16 * c
.Height = 14
.TextAlign = fmTextAlignCenter
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.Enabled = False
End With

''''''''''''''''''''''''''''''''''
'TEXTBOX-3
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "D")

.Left = (X * 16.45) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

'''''''''''''''''''''''''''''''''
'TEXTBOX-4
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "E")
.Left = (X * 21.65) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

'''''''''''''''''''''''''''''''''
'TEXTBOX-5
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "F")
.Left = (X * 27) + b.Width
.Width = 70
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-6
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "G")
.Left = (X * 34.25) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-7
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "H")
.Left = (X * 39.55) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-8
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "I")
.Left = (X * 42.35) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-9
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "J")
.Left = (X * 47.75) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-10
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "K")
.Left = (X * 53.1) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-11
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "L")
.Left = (X * 55.85) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-12
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "M")
.Left = (X * 61.1) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-13
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "N")
.Left = (X * 63.85) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-14
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "O")
.Left = (X * 69.2) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-15
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "P")
.Left = (X * 72) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-16
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "Q")
.Left = (X * 77.3) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-17
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "R")
.Left = (X * 80) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-18
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "S")
.Left = (X * 85.3) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-19
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "T")
.Left = (X * 88.1) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-20
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "U")
.Left = (X * 93.45) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-21
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "V")
.Left = (X * 96.3) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-22
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "W")
.Left = (X * 99.1) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-23
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "X")
.Left = (X * 102) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-24
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "Y")
.Left = (X * 105) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-25
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "Z")
.Left = (X * 107.88) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-26
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AA")
.Left = (X * 110.88) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-27
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AB")
.Left = (X * 113.7) + b.Width
.Width = 30
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-28
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AC")
.Left = (X * 116.95) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-29
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AD")
.Left = (X * 120.75) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-30
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AE")
.Left = (X * 124.5) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-31
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AF")
.Left = (X * 128.3) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-32
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AG")
.Left = (X * 131.1) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-33
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AH")
.Left = (X * 133.95) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-34
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AI")
.Left = (X * 137.75) + b.Width
.Width = 25
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-35
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AJ")
.Left = (X * 140.5) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-36
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AK")
.Left = (X * 144.3) + b.Width
.Width = 35
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-37
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AL")
.Left = (X * 148.1) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
'TEXTBOX-38
X = 10
Set bb = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & a, True)
With bb
.Value = Cells(a, "AM")
.Left = (X * 153.47) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
.BorderStyle = fmBorderStyleSingle
.BackColor = &H80000004
.TextAlign = fmTextAlignCenter
.Enabled = False
End With

''''''''''''''''''''''''''''''''''''''''''''''''''''
X = 10
ReDim Preserve ChkBArray(a)
Set ChkBArray(a).ChkB = UserForm1.Controls.Add("Forms.checkbox.1", "ChkB_" & a)
    With ChkBArray(a).ChkB
.Left = (X * 158.75) + b.Width
.Width = 50
.Top = 16 * c
.Height = 14
'.BorderStyle=fmBorderStyleSingle
.BackColor = &H80000004
'.TextAlign=fmTextAlignCenter
'.Enabled=False
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''
c = c + 1
If a = 100 Then X = X + 130: c = 4
Next
End Sub


Sayın Halily çok teşekkür ederim.. 1. talebim tamamıyla çözüme kavuşmuş oldu. Ellerinize sağlık.

2. Talebimi çözüme kavuşturmak için çalışıyorum.


1-Userform da ScrollBar kullanırken üst ve solda kalan veriler sabit kalacak şekilde (Excel sayfa işleminde kullanılan satır ve sütun dondurma işlemi gibi) yapılabilir mi?. Userform maus ile kaydırma işlemi yapılırken userform üzerinde ekli bulunan nesnelerin titremesi/gecikmesi engellenebilir mi?
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#10)  halily » 16 May 2021 19:59

Rica ederim
Iyi çalışmalar
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 652
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#11)  düşünceli » 17 May 2021 15:21

Güncel...
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Cevap: Userfom ScrollBar Kullanımında Sabit Alan Beli

İleti#12)  düşünceli » 18 May 2021 20:20

düşünceli yazdı:Güncel...
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 48
İleti: 227
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#13)  halily » 19 May 2021 00:23

büyük bir ihtimalle tam olarak istediğiniz gibi olmadı ama ancak bu kadar oldu
dilerim işinize yarar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 652
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#14)  halily » 19 May 2021 01:34

yalnız If a = 100 Then X = X + 130: c = 4 bu kodun amacını anlamadım, X metin kutusunun sol kenara mesafesi değil mi? neden a 100. satırı geçince metin kutuları daha da sola kayıyor bence bu satır iptal edilmeli
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 652
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#15)  halily » 19 May 2021 01:47

ve neden sadece textboxlar siliniyor If TypeName(sil) = "TextBox" Or TypeName(sil) = "CheckBox" kodu ile CheckBoxların da silinmesi gerekmez miydi?
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 652
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Userfom ScrollBar Kullanımında Sabit Alan Belirleme

İleti#16)  halily » 19 May 2021 08:54

elimden geldiğince sadeleştirmeye çalıştım ama ancak bu kadar oldu
dilerim işinize yarar
çalışma sizin çalışmanız o nedenle nasıl olması gerektiğini en iyi siz bilirsiniz ama neden textboxlar ekleyerek yapıyorsunuz? belki 50-60 kayıtta çok sıkıntı çıkarmaz ama 100 satır veriden sonra forma kayıtların gelmesi için eklenen textbox ve checkboxlar nedeniyle kayıtların yüklenmesini beklemek tam bir işkence olabiliyor, verilerinizi listbox ile almanız daha kolay ve hızlı olmaz mıydı?
listeden veriyi seçtiğinizde alttaki textboxlara gelen veriler üzerinde işlem yapmak daha uygun olmaz mı?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 652
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana


Forum UserForm ve Diğer Nesneler

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe