şeçilen değeri başka sayfaya atma

[emreakillilar]

merhaba excell de nasıl yapıldığını merak ettiğim bir uygulama var

yardımcı olursanız çok sevinirim.

Ekte sayfa1 başlığı altında 58 tane kod var ve ben bu kodlardan

1,9,15,22,31 inci kodları (mavi ile boyalı olanları) sayfa2 ye bir

tuş vasıtası ile almak istiyorum .

Mesela sayfa1 deki 15 inci kodu( c25661 i) kodu şeçip bir tuşa

bastığım an 15.kodun otomatik olarak sayfa2 de gözükmesini

istiyorum.Tabii ki 15. kodu sayfa2 ye aldıktan sonra sayfa1

den seçtiğim başka kodun (mesela 22.kod olan (s406222) nin),

sayfa2 de daha önce seçtiğim kodun (yani 15. kodun) altında

olması gerekiyor.Yani sayfa1 den seçtiklerim sırasıyla

sayfa2 ye geçsin istiyorum.Buna yarayan bir tuş varmı yada ne yapabilirim?

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sayfa2 ye alınan kod Sayfa1 den silinecekmi ? Ve aktarılırken satır sırası önemlimi ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu Sayfa1 in kod bölümüne uygulayınız. Sayfa1 de B sütununda herhangibir hücre üzerinde çift tıklarsanız o hücre Sayfa2 ye aktarılacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Cancel = True
    If Intersect(Target, [B3:B65536]) Is Nothing Then Exit Sub
    If Target = "" Then
    Cancel = True
    Exit Sub
    End If
    SATIR = S2.[B65536].End(3).Row
    S2.Cells(SATIR + 1, 2) = Target
    MsgBox "SEÇMİŞ OLDUĞUNUZ KAYIT AKTARILMIŞTIR.", vbInformation
End Sub

 

[emreakillilar]

SN.COST CONTROL TEŞEKKÜR EDERİM

 

[emreakillilar]

sn cost control gönderdiğiniz makro çok iyi birşekilde çalışıyor fakat ufak bir düzeltme ihtiyacı duyuyorum sayfa1 de üzerine tıkladığım kod sayfa 2 ye geçiyor fakat ben sayfa 1 deki kodun üzerine tıkladığımda kodla beraber sabahki mevcudunun da sayfa2 ye geçmesini istiyorum(ilgili kodun 1. sayfadaki sabah mevcudu sayfa2 deki sabah mevcuduna geçsin). yani sayfa1 de herhangi bir kodun üzerine tıkladığımda sayfa 2 ye yanındaki sabah mevcudu ile geçsin istiyorum.yardımcı olabilirmisiniz?. Şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Cancel = True
    If Intersect(Target, [B3:B65536]) Is Nothing Then Exit Sub
    If Target = "" Then
    Cancel = True
    Exit Sub
    End If
    SATIR = S2.[B65536].End(3).Row
    S2.Cells(SATIR + 1, 2) = Target
    S2.Cells(SATIR + 1, 3) = Target.Offset(0, 1)
    MsgBox "SEÇMİŞ OLDUĞUNUZ KAYIT AKTARILMIŞTIR.", vbInformation
End Sub

 

[emreakillilar]

teşekkürler