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

Katılım
11 Eylül 2017
Mesajlar
42
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
23.12.2021
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.
 
Son düzenleme:
Katılım
11 Eylül 2017
Mesajlar
42
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
23.12.2021
Çözdüm Teşekkürler
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,248
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Çözümünüzü bizimle paylaşır mısınız?
 
Katılım
11 Eylül 2017
Mesajlar
42
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
23.12.2021
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ektedir.:cool:
Kod:
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
 

Ekli dosyalar

Katılım
11 Eylül 2017
Mesajlar
42
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
23.12.2021
Teşekkür ederim. Şimdi ben bunu kendi dosyamda uyğulayacağım umarım yapabilirim
 
Katılım
11 Eylül 2017
Mesajlar
42
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
23.12.2021
yapamadım size bi ek göndersem yapabilirmisiniz
 
Katılım
11 Eylül 2017
Mesajlar
42
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
23.12.2021
Msj olarak gönderdim hocam
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Butona bascaksınız.:cool:
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Kodları buyurun.:cool:

Kod:
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
 
Üst