Veri transferi

[mesudiye_052]

İyi günler

Masa üstümde Sigorta klasörünün içinde 2 tane excel dosyam var
bunlardan biri Giriş ekranı diğeri Ak sigorta
ben giriş ekranındaki B sutununda Şirketler kısmına AK yazarsam tüm sutunu
Ak sigorta dosyasına nakil etmesini istiyorum
teşekkürler

 

[Orion1]

Merhaba.
Giriş Ekranı.xls dosyasında Mart-2007 sayfasının kod sayfasında
aşağıdaki kodları yapıştırın.
Kodların çalışabilmesi için her 2 dosyanın da açık olması gerekiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Intersect(Target, [B5:B65536]) Is Nothing Then Exit Sub
If Target.Value = "" Or LCase(Target.Value) <> "ak" Then Exit Sub
sat = Workbooks("Ak Sigorta.xls").Sheets("MART-2007").Cells(65536, "A").End(xlUp).Row + 1
For sut = 1 To 23
    Workbooks("Ak Sigorta.xls").Sheets("MART-2007").Cells(sat, sut).Value = Cells(Target.Row, sut).Value
Next
hata:
End Sub

 

[mesudiye_052]

Sayın SEZAR
İlginiz için teşekkürler
yanlış giriş çalışma sayfasında
mesela her defasında B5 hücresinde bulunan AK kelimesinin içeriğine girip enter dediğim zaman diğer tarafa aktarım yapıyor
bunu nasıl engelleriz

 

[Orion1]

Merhaba.
Dağa önce verdiğim kodu siliniz.
çalışma sayfasının kod sayfasının general bölüne aşağıdaki kodu yazın.

Dim yasaksat As Long

ve onun altınada aşağıdaki kodları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sut As Byte
On Error GoTo hata
If Intersect(Target, [B5:B65536]) Is Nothing Then Exit Sub
If Target.Value = "" Or LCase(Target.Value) <> "ak" Then Exit Sub
If Target.Row <= yasaksat Then Exit Sub
sat = Workbooks("Ak Sigorta.xls").Sheets("MART-2007").Cells(65536, "A").End(xlUp).Row + 1
For sut = 1 To 23
    Workbooks("Ak Sigorta.xls").Sheets("MART-2007").Cells(sat, sut).Value = Cells(Target.Row, sut).Value
Next
MsgBox "Kayıt Yapıldı.!", vbOKOnly, Application.UserName
hata:
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
yasaksat = Cells(65536, "B").End(xlUp).Row
End Sub

 

[mesudiye_052]

Sayın Sezar Modüle kopyaladım ama beceremedim
dosya ile gönderebilirmisiniz

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[mesudiye_052]

Teşekkürler

Sayın Sezar ilginiz için teşekkür ederim
birde Ak Sigorta adlı dosya açık değilken Giriş dosyasından yapılan verilen
daha sonra Ak sigortayı açınca göndermesi mümkünmüdür?

 

[mesudiye_052]

Bu konuda başka bir fikri olan varmı acaba

 

[mesudiye_052]

Başka önerisi olan varmı