makroda bul ve kopyala yapıştır

[evren_01]

Arkadaşlar
Bir süredir bu konu üzerinde araştırma yapıyorum
bir türlü sonuca varamadım
Aradığım husus
haziran 2004 sayfasındaki a3:a341 hücreleri arasında bulunan X hücresini bulup sağında bulunan ( b3:h341) arasındaki hücreleri aynen kopyalayıp sayfa 1 deki a2 hücrtesine alt alta yazan makro
hususunda yardımlarınızı bekliyorum

 

[Hüseyin]

Selam;
aşağıdaki örnek işinizi görür sanırım;
Makroyu çalıştırdığın sayfada işlem yapar.

Sub arabul()
    ara = Application.InputBox(prompt:="Aranacak Veri?", Type:=3)
    Range("A3:A341").Select
    Selection.Find(What:=ara, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    satir = ActiveCell.Row
    Range(Cells(satir, 2), Cells(satir, 8)).Select
    Selection.Copy
    Sheets("Sayfa1").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

Deneme sonucunu iletirseniz memnun olurum.

 

[evren_01]

Hüseyin bey
Cook teşekkür ederim
cok güzel olmuş olmuş fakat sayfa 1 e yapıştırmada bir sorun var galiba
A hicrelerinde bulunan Ã?rneğin X değerinin yanındaki hücreler bir kısmını kopyalıyor

Yalnız bir acıklamada bulunmam gerekiyor galiba arama yapılacak hücreler ( alt ve üst ) hücreleri birleştirdim bir sorun olabilir , X değerinin orada formül var

benim istediğim kısaca

x= stok

stok gel.tarh raf gözü malz. numarası malz. cinsi vb
a3 b3 c3 d3 e3 ......

 

[Hüseyin]

Merhaba,
birleştirilmiş hücreler her zaman için sorun yaratır. Bunu mutlaka her bir satıra bir kayıt gelecek şekilde değiştirn ve deneyin.
Aşağıdakileride değiştirin;

1-

LookIn:=xlFormulas, LookAt _ 
        :=xlPart, SearchOrder:=xlByRows,

ifadesinde xlFormulas yerine xlValues yazın
Yani;

LookIn:=xlValues, LookAt _ 
        :=xlPart, SearchOrder:=xlByRows,

Kopyalama aralığı için aşağıdaki satır kullanılıyor.

    Range(Cells(satir, 2), Cells(satir, 8)).Select

Buradaki anlam ;
"2". yani B sütunundan başlayıp,
"8". yani H sütununa kadar olan hücreleri seç.

H yerine daha fazla sutün vermek isterseniz ikinci değeri değeri buna göre arttırın.

Umarım Olmuştur.

Saygılar

 

[evren_01]

hüseyin bey
dediğiniz formülü uyguladım yanlız
birleştirmeleri ayırmam imkansız cünkü format bu şekilde ayarlanmış
ikinci sorun da ilk baştakı değeri buluyor diğerlerini bulamıyor

bu formülle fazla mesai dosyası hazırlayabilirmiyim acaba yardımcı olur musunuz

 

[Hüseyin]

birleştirmeleri ayırmam imkansız

Birleştirmelerin bir standardı varsa, o zaman da olur. Yani her seferinde ikişer satır birleştirilmişse kodu aşağıdaki şekilde değiştirebilirsiniz;

   Range(Cells(satir+1, 2), Cells(satir+1, 8)).Select

Ancak bazı satırlarda birleştirme var, bazılarında birleştirme yoksa, buna bir çözüm şu an için aklıma gelmiyor.

ilk yazınızda;

haziran 2004 sayfasındaki a3:a341 hücreleri arasında bulunan X hücresini bulup sağında bulunan ( b3:h341) arasındaki hücreleri aynen kopyalayıp sayfa 1 deki a2 hücrtesine alt alta yazan makro

şeklinde yazdığınız için ben aranan değerin bir defa aranacağı yapıda hazırladım.
A Sütununda bir den fazla aranan deger bulunduğunda bunları diğer sayfaya nasıl atacak?
Her bir satırın bilgisini yukarıdan aşıya ve her bir satırın verisini ayrı bir kolona yanyanamı?

 

[evren_01]

Bütün hücreler aynı formatta ve aranan değerin hemen yanındaki sütünların içindedir

Birde ben fazla mesai dosyası hazırlamak istiyorum
1. sayfa 1 de günlük verilecek rapor
2.sayfa 2 de ise kışilerin ay boyunca alıdkları mesaileri gösteren bir cizelge hazırlamayı düşünüyorum makro sayaesinde günlük hazırlanan rapordan günün tarhine bağlı olarak isimlerin karşısındaki değerleri girmek istiyorum bunu sizin verdiğiniz formülle yapabilirmiyim
daha böyle bir cizelge hazırlamadım yardımlarınızı ve önerilerinizi bekliyorum

ilginizden ötürü teşekkür ederim

 

[Hüseyin]

Bütün hücreler aynı formatta ve aranan değerin hemen yanındaki sütünların içindedir.

Bu durumda bir önceki mesajımda belittiğim "satır+1" şeklindeki değişiklik bu sorunu çözecektir.

Birde ben fazla mesai dosyası hazırlamak istiyorum
1. sayfa 1 de günlük verilecek rapor
2.sayfa 2 de ise kışilerin ay boyunca alıdkları mesaileri gösteren bir cizelge hazırlamayı düşünüyorum makro sayaesinde günlük hazırlanan rapordan günün tarhine bağlı olarak isimlerin karşısındaki değerleri girmek istiyorum bunu sizin verdiğiniz formülle yapabilirmiyim
daha böyle bir cizelge hazırlamadım yardımlarınızı ve önerilerinizi bekliyorum

Bunun için 1. sayfa için düşündüğünüz yapıyı hazırlayın. Burada bir önceki çalışmada yapılan hataya düşmeyin ;
1. satır başlıkları içersin ve takip eden satırlarda her bir satır bir kayıt içersin.

Bu tablonun şekli ve içine 10 veya 20 satır veri girdikten sonra aşağıdaki açıklamaya göre özet tablo(Pivot table) ile istediğiniz raporlamayı yapabilirsiniz.


http://www.herseynet.com/cozumler/datahestabok/ek54.htm
Saygılar

 

[THOTİK]

Veriyi a sütununda bulduktan sonra satırın tamamını yine satır olacak şekilde nasıl kopyalarız

 

[kaos3]

Merhaba,
birleştirilmiş hücreler her zaman için sorun yaratır. Bunu mutlaka her bir satıra bir kayıt gelecek şekilde değiştirn ve deneyin.
Aşağıdakileride değiştirin;

1-

LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows,

ifadesinde xlFormulas yerine xlValues yazın
Yani;

LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows,

Kopyalama aralığı için aşağıdaki satır kullanılıyor.

    Range(Cells(satir, 2), Cells(satir, 8)).Select

Buradaki anlam ;
"2". yani B sütunundan başlayıp,
"8". yani H sütununa kadar olan hücreleri seç.

H yerine daha fazla sutün vermek isterseniz ikinci değeri değeri buna göre arttırın.

Umarım Olmuştur.

Saygılar

Hüseyin Bey Merhabalar,
Konuyu tekrar canlandırıyorum ama içinden çıkamadım.
Makro aranan değeri listede bulunca çalışıyor çok işimi gördü.
Anncak bulamayınca hata veriyor.
Bulamayınca hata yerine yapıştıracağı yere "YOK" yazdırmamız mümkün müdür?