köprü

[durhan]

Arkadaşlar herkese kolay gelsin. problemim; Veri girişi yapılan sayfalarım var ve bu veri girişi yapılan sayfalarımda beni yönlendiren köprülerim mevcut, ayrıca bu verileri sorgulamam için sorgu ekranım mevcut, sorgulama yaptığımda veri girişi yapılan sayfadaki köprüler aktarılmıyor. her sorgulama yaptığımda sorgulama ekranına sorguladığım ilin bilgileri ve veri girişi yapılan yerdeki köprülerin gelmesini istiyorum. bu mümkün mü? ekli dosyayı incelermisiniz?

 

[Ferhat Pazarçevirdi]

Kodunuzu aşağıdaki şekilde revize ediniz.

Private Sub CommandButton1_Click()
    Dim hcr As Range, son As Integer, hcrr As Range, j As Integer, i As Integer, k As Integer
    Set hcr = Sayfa1.Range("A1")
    son = 4
    Application.ScreenUpdating = False
    
    Sayfa1.Range("A4:J40").ClearContents
    
    For j = 2 To 5
        For i = 3 To 20
            If Sheets(j).Cells(i, 2) = hcr Then
                Set hcrr = Sheets(j).Cells(i, 2)
                For k = 2 To 10
[COLOR=red]                    If k = 3 Then
                        hcrr.Offset(0, k - 2).Copy Cells(son, k)
[/COLOR][COLOR=red]                    Else[/COLOR]
                        Cells(son, "A") = son - 3
                        Cells(son, k) = hcrr.Offset(0, k - 2)
[COLOR=red]                    End If[/COLOR]
                Next k
                son = son + 1
            End If
        Next i
    Next j
    
    Application.ScreenUpdating = True
    Set hcr = Nothing
    Set hcrr = Nothing
End Sub

 

[durhan]

Sayın Ferhat Bey ilginize en içten duygularımla teşekkür ediyorum.