Kaydet ve düzenle işlemi gibi bir formül var mı

[teolojit]

Ekli dosyayı görüntüle kaydet.xlsx

Merhaba Arkadaşlar
Bir tablo yapmaya çalışıyorum ama başaramadım. Detaylı açıklama ek'te var.
Yardım ederseniz sevinirim.
Şimdiden Teşekkürler.

 

[teolojit]

Çözdüm Teşekkürler

 

[Korhan Ayhan]

Çözümünüzü bizimle paylaşır mısınız?

 

[teolojit]

Bi an çözdümü sanmıştım Makro kullanmıştım ama malesef olmadı hala uğraşıyorum. Tek isim için sağlıyor sağlayabiliyorum sadece makrodan.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [F3]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Set k = Range("K3:O3").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("F4:F13").Copy k.Offset(1, 0)
End If
Set k = Nothing
End Sub

 

[teolojit]

Teşekkür ederim. Şimdi ben bunu kendi dosyamda uyğulayacağım umarım yapabilirim

 

[Orion1]

Teşekkür ederim. Şimdi ben bunu kendi dosyamda uyğulayacağım umarım yapabilirim

Rica ederim.
İyi çalışmalar.

 

[teolojit]

yapamadım size bi ek göndersem yapabilirmisiniz

 

[Orion1]

yapamadım size bi ek göndersem yapabilirmisiniz

Gönderin.

.

 

[teolojit]

Msj olarak gönderdim hocam

 

[Orion1]

Msj olarak gönderdim hocam

Dosyayı mesaja ekledim.

 

[Orion1]

Butona bascaksınız.

 

[Orion1]

Kodları buyurun.

Sub Düğme3_Tıklat()
Dim sh As Worksheet, k As Range
Sheets("Hacim Kontrol").Select
Set sh = Sheets("a1")
If Range("D1").Value = "" Then Exit Sub
Set k = sh.Range("H2:BE2").Find(Range("D1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("D2:D37").Copy k.Offset(1, 0)
    sh.Select
    k.Select
    MsgBox "Veriler Aktarıldı." & vbLf & "evren gizlen@hotmail.com"
End If
End Sub