Formül Yapıştırma

[waytooraider]

Saygıdeğer Hocalarım,

Sürekli kopyalamam gereken formüller var ekte anlatmaya çalıştım yardımlarınız için şimdiden çok teşşekürler.

Saygılarımla.

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("g:g")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Range("h6:ad6").Copy Cells(Target.Row, Target.Column + 1)
End Sub

 

[waytooraider]

Hocam sadece c kodunun formullerı gelıyor.6,7 vs diğerlerinin gelmiyor.C yazdığımda cnin,1 yazdığımda 1'in gelirse mükemmel olacak.(Kısacası ordaki 9 koddan herhangi birini yazarsam o kodun karşılığı olan formül gelsin.)
Çok teşşekür ederim

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bul As Range
    If Intersect(Target, Range("G15:G" & Rows.Count)) Is Nothing Then Exit Sub
    Set Bul = Range("G5:G14").Find(Target, , , xlWhole)
    If Not Bul Is Nothing Then Range("H" & Bul.Row & ":O" & Bul.Row).Copy Target.Offset(0, 1)
End Sub

 

[waytooraider]

Hocam çok sağolun.
"H" & Bul.Row & ":O" yerine
"H" & Bul.Row & ":AD" yazarsam
AD 'ye kadar kopyalayıp yapıştıracak dimi?

 

[Korhan Ayhan]

Aynen dediğiniz gibi...

 

[waytooraider]

Sayın Korhan Hocam

Bu konu hakkında bir maruzatım daha olacak.

Ekteki dosyada açıklamaya çalıştım.Sayıyı elle girince yazdığınız kod çalışıyor.Ama düşeyara ile sayı gelince kod çalışmıyor.Bu durumu nasıl çözebilirim.

Yardımlarınız için çok ama çok teşekkür ederim..

 

[Korhan Ayhan]

Elbette formülle gelen sonuçlarda kod tepki vermez. Çünkü hücre değişimi olayında (Change) çalışması için kodu derlemiştik. Eğer değerler formülle gelecekse butonla çalışacak kodları tercih etmeniz gerekir. Ya da hücre seçerek formülleri kopyalayabilirsiniz.

Aşağıdaki kodu deneyin. G sütunundaki hücrelerde gezinip sonucu gözlemleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Bul As Range
    If Intersect(Target, Range("G15:G" & Rows.Count)) Is Nothing Then Exit Sub
    Set Bul = Range("G5:G14").Find(Target, , , xlWhole)
    If Not Bul Is Nothing Then Range("H" & Bul.Row & ":AD" & Bul.Row).Copy Target.Offset(0, 1)
End Sub