kod -makro kullanarak veri alma

[mstfayan]

Selamlar

ekli dosyada görüleceği üzere kod- makro kullanarak verileri almak istiyorum.. düşey ara ile yapılabiliyor ancak bu iş kodla nasıl oluyor öğrenmek isterim.. 2 gündür formda farklı çalışmaları inceledim ancak benim istediğim şekle uyarlayamadım..

yardımlarınız için teşekkürler...

Saygılar

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız
Ektedir

 

[mstfayan]

üstadım
eline sağlık çok teşekkürler...

Ancak veri dosyasındaki bilgilerde yerinde kalalabilir mi..? çünkü o sayfa da başka şekilllerde kullanılacak...

Saygılar

 

[ZorBey_]

Merhaba
iyi Çalşımalar
Veri Sayfasındaki Veriler Dağıtımdan Sonra Silinmiyor

 

[mstfayan]

Üstadım

Son bir soru

"Örnek" olarak atadığı sayfanın olması gerekiyor mu?( olmasa daha iyi olurdu )
Koddan bunu çıkartsak, mevcut kod bozulur mu?

Eline emeğine sağlık.. teşekkürler....

 

[ZorBey_]

Örnek Sayfasını
Kaldırdım

Size LAzım Olan
Yeni Sayfaları
Aktarmadan Evvel
Açmanız Gerekir

 

[ZorBey_]

Bu Dosyada
Sayfalara Aktarmadan Evvel
Sayfaları Temizleyi Tıklayın
Ayni Bilgileri Tekrar Atmasın
Sonra Verileri Dağıtı Tıklayın

 

[mstfayan]

Üstad

Eline sağlık...Düşündüğümden daha iyi oldu..

Teşekkürler

 

[anit35]

slm arkadaşlar

slm arkadaşlar makro ile veri alma konusunda bana yardımcı olurmusu
dosya ekte
saygılarımla

 

[abaran]

ben makro yapmadım ama düşeyara formülü işine yararsa dosya ekte..

 

[Orion1]

slm arkadaşlar makro ile veri alma konusunda bana yardımcı olurmusu
dosya ekte
saygılarımla
ssedatabdulioglu

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim hcr As Range
If Intersect(Target, Range("A10:A" & Cells(Rows.Count, "A").End(xlUp).Row)) _
        Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = ""
If Target.Value = "" Then Exit Sub
Set hcr = Sheets("veri").Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not hcr Is Nothing Then Target.Offset(0, 1).Value = hcr.Offset(0, 1).Value
End Sub

 

[anit35]

Orion1 bey
selamlar daha önce bu çalışmada bana yardımcı olmuştunuz teşekkür ederim .
Sizden bir ricam daha var alt toplam makrosu sıralama soru yaşadığımdan tekrar sizi rahatsız ediyorum
sizden istediğim dosya içinde yapmış oldum sıraya göre toplamları alması
saygılarımla