Label' a veri aktarımı

[geren36]

herkese iyi akşamlar,

ekteki dosyada yer alan "bakiye" sütununda (0) dan farklı bir (+ / - olması fark etmez) değer varsa;

a) hesap numaralarını Label1000 den başlayarak
b) ad-soyadları Label2001' den başlayarak
c) bakiyeleri de Label3001' den başlayarak

alt alta, sırasıyla ilgili Label' lara yazdırsın.

Yerleştirme sona erdikten sonra ise Label1000-1005' den hangilerinde bir değer yoksa ilgili Frame'in visible özelliği False olsun

istiyorum. Yardım edeceklere şimdiden teşekkürler.. :yardim:

 

[N.Ziya Hiçdurmaz]

yanıt

Bir örnek.

Private Sub CommandButton1_Click()
[I2:K1000].Clear
For i = 1 To 21
If Range("g" & i + 5) <> 0 Then
Range("g" & i + 5).Copy
s = s + 1
Range("k" & s + 1).PasteSpecial
End If
Next
For i = 1 To 21
If Range("g" & i + 5) <> 0 Then
Range("d" & i + 5).Copy
ss = ss + 1
Range("j" & ss + 1).PasteSpecial
End If
Next
For i = 1 To 21
If Range("g" & i + 5) <> 0 Then
Range("c" & i + 5).Copy
sss = sss + 1
Range("I" & sss + 1).PasteSpecial
End If
Next
UserForm1.Show
End Sub

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Kodlarda aşağıdadır.

Private Sub UserForm_Initialize()
Dim a As Integer, b As Integer, c As Integer, say As Byte, J As Byte
Sheets("Sheet1").Select
sonsat = Cells(65536, "C").End(xlUp).Row
If sonsat < 5 Then Exit Sub
a = 1: b = 2: c = 3
For i = 5 To sonsat
If say = 6 Then GoTo atla
    If Cells(i, "G").Value <> 0 Then
        Controls("Label" & a) = Cells(i, "C").Value
        Controls("Label" & b) = Cells(i, "D").Value
        Controls("Label" & c) = Cells(i, "G").Value
        a = a + 3: b = b + 3: c = c + 3: say = say + 1
    End If
Next
atla:
J = 1
For i = 1 To 16 Step 3
    If Controls("Label" & i).Caption = "" Then
        Controls("Frame" & J).Visible = False
    End If
    J = J + 1
Next
End Sub

 

[geren36]

eline sağlık sezar ...

4 x 4' lük olmuş ... :icelim:

 

[Orion1]

eline sağlık sezar ...

4 x 4' lük olmuş ... :icelim:

Rica ederim.
İyi çalışmalar.