Bu formülün devamı ile ilgili yardımcı olabilirmisiniz?

[bambuchia]

ARKADAŞLAR MERHABA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("F3") = Range("B3").Text
Range("G3") = Range("C3")
Range("H3") = Range("D3")
End Sub


BÖYLE BİR KODUM VAR FAKT BU BİR SATIR İÇİN GEÇERLİ GÖRMÜŞ OLDUĞUNUZ GİBİ BEN BUNU ALT SATIRLARDA DEVAM ETTİRMEK İSTİYORUM.
BAŞLANGIÇ 3 BİTİŞ 41 OLACAK TEŞEKKÜRLER....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki iki koddan birisini kullanabilirsiniz.

1. Kod;

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("F3:F41") = Range("B3:B41").Text
    Range("G3:G41") = Range("C3:C41").Value
    Range("H3:H41") = Range("D3:D41").Value
End Sub

2. Kod;

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim X As Byte
    For X = 3 To 41
        Range("F" & X) = Range("B" & X).Text
        Range("G" & X) = Range("C" & X)
        Range("H" & X) = Range("D" & X)
    Next
End Sub

 

[bambuchia]

çok teşekkürederim fakat text çalışmıyor
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim X As Byte
For X = 3 To 41
Range("F" & X) = Range("B" & X).Text (burası çalışmıyor)
Range("G" & X) = Range("C" & X)
Range("H" & X) = Range("D" & X)
Next
End Sub


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("F3:F41") = Range("B3:B41").Text ( burası çalışmıyor)
Range("G3:G41") = Range("C3:C41").Value
Range("H3:H41") = Range("D341").Value
End Sub

 

[Korhan Ayhan]

Selamlar,

Ben sizin verdiğiniz kodda Text yazdığı için cevabımda bu şekilde kullanmıştım.

.Text ifadelerini silerek deneyin. Yada .Value yazarak deneyiniz.

 

[bambuchia]

çok teşekkürediyorum ilginize tamamdır çalışıyor...