etiketin girilen bilgiye göre değişmesi

[supernatural]

Merhaba,
siteye yeni üye oldum.tam konulara bakamadım ama şu exceldeki sorunu bitirince
inşallah ondan sonra elimden geldiğince bakacağım.:tongue:
benim bir sorum olacak.Excelde 1. çalışma sayafasına bir liste hazırladık. 2. çalışma sayfasına ise bir etiket formatı hazırladık.biz 1. sayfadaki listeye yeni bilgiler girdiğimizde sadece o etiketin üzerinde değişiklerin yeni girilen bilgilere değişmesini istiyoruz.Sorumla ilgili dosyayı ekledim ancak maalesef orjinalini ekleyemiyorum.bu çok basite indirgenmiş hali.ama ordan yapılanlara bakarak değişiklikleri yapmaya çalışacağım şimdiden yardımlarınız için teşekkürler...

 

[Ayhan Ercan]

Merhaba Sn supernatural

Ek dosyayı inceleyiniz.

Not: Tüm bilgileri girmek gerekiyor...

Private Sub CommandButton1_Click()
For i = 1 To 10
Cells(i + 11, 5) = Sheets("PERSONEL").Cells(65536, i).End(3)
Next
End Sub

 

[supernatural]

Merhaba Sn supernatural

Ek dosyayı inceleyiniz.

Not: Tüm bilgileri girmek gerekiyor...

Private Sub CommandButton1_Click()
For i = 1 To 10
Cells(i + 11, 5) = Sheets("PERSONEL").Cells(65536, i).End(3)
Next
End Sub

Teşekkürler Ayhan bey ancak dosyayı açtığımda yeni bir bilgi girdiğimde etiket değişmiyor makro hiç bilmiyorum ve napacağım bilmiyorum

 

[Ayhan Ercan]

Teşekkürler Ayhan bey ancak dosyayı açtığımda yeni bir bilgi girdiğimde etiket değişmiyor makro hiç bilmiyorum ve napacağım bilmiyorum

Tekrar Merhaba

Öncelikle dosyayı açtığınızda Makroları etkinleştirmeniz gerekmektedir.
Etiket sayfasındaki butona tıklayınca yazmış olduğunuz son veriyi etikete geçirmiş olacaksınız...

 

[supernatural]

Tekrar Merhaba

Öncelikle dosyayı açtığınızda Makroları etkinleştirmeniz gerekmektedir.
Etiket sayfasındaki butona tıklayınca yazmış olduğunuz son veriyi etikete geçirmiş olacaksınız...

evet gördüm çok teşekkürler Ayhan Bey 1 haftadır çıldırmak üzereydim sağolun:tongue:

 

[Necdet]

Merhaba,

Aşağıdaki kodların etiket adlı sayfanın kod bölümünde olmalı.
Anlaşılması için uzun uzun yazdım

Private Sub Worksheet_Activate()
Set sp = Sheets("PERSONEL")
Dim i As Long
i = sp.[A65536].End(3).Row
[E12] = sp.Cells(i, "A")
[E13] = sp.Cells(i, "B")
[E14] = sp.Cells(i, "C")
[E15] = sp.Cells(i, "D")
[E16] = sp.Cells(i, "E")
[E17] = sp.Cells(i, "F")
[E18] = sp.Cells(i, "G")
[E19] = sp.Cells(i, "H")
[E20] = sp.Cells(i, "I")
[E21] = sp.Cells(i, "J")
End Sub

 

[supernatural]

Merhaba,

Aşağıdaki kodların etiket adlı sayfanın kod bölümünde olmalı.
Anlaşılması için uzun uzun yazdım

Private Sub Worksheet_Activate()
Set sp = Sheets("PERSONEL")
Dim i As Long
i = sp.[A65536].End(3).Row
[E12] = sp.Cells(i, "A")
[E13] = sp.Cells(i, "B")
[E14] = sp.Cells(i, "C")
[E15] = sp.Cells(i, "D")
[E16] = sp.Cells(i, "E")
[E17] = sp.Cells(i, "F")
[E18] = sp.Cells(i, "G")
[E19] = sp.Cells(i, "H")
[E20] = sp.Cells(i, "I")
[E21] = sp.Cells(i, "J")
End Sub

Necdet Bey size de çok teşekkürler gerçekten utandım şimdi
karar verdim burdan makroyla alakalı ne varsa öğrenmeye çalışacağım çok teşekkürler tekrar

 

[dEdE]

Merhaba,
Sayın Ercan'ın kodlarında küçük bir değişiklik yaptım. Bu kodlar personel adlı sayfanın kod bölümüne yazılacak.
Saygılar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10
Sheets("etiket").Cells(i + 11, 5) = Sheets("PERSONEL").Cells(65536, i).End(3)
Next
End Sub

 

[Necdet]

Necdet Bey size de çok teşekkürler gerçekten utandım şimdi
karar verdim burdan makroyla alakalı ne varsa öğrenmeye çalışacağım çok teşekkürler tekrar

Merhaba, forumumuzu düzenli izlerseniz hem xl hem makro konusunda gelişim gösterirsiniz. Bundan emin olunuz.

Gördüğünüz gibi Sayın dEdE'de Sayın Ercan'ın kodlarını farklı şekilde çevirmiş. Yani bir konuda bir çok çözüm olabiliyor.

 

[supernatural]

Merhaba, forumumuzu düzenli izlerseniz hem xl hem makro konusunda gelişim gösterirsiniz. Bundan emin olunuz.

Gördüğünüz gibi Sayın dEdE'de Sayın Ercan'ın kodlarını farklı şekilde çevirmiş. Yani bir konuda bir çok çözüm olabiliyor.

evet haftasonu mutlaka bakacağım buraya ezbere öğrenmek istemiyorum çok teşekkürler cevap verenlere