Makro ile veri kopyalama.

[ahzola]

Merhaba,
Ölçütü(kriter) değişken olarak tanımlayıp, inputbox aracılığı ile istediğiniz ölçütleri girebilirsiniz.

Özür dilerim ama sanırım ben bunu yapamam.
Arkadaşlar yokmu sayın dEdE nin söylediği hususta yardım edecek.
kendisini yeterince meşgul ettim

 

[ExcelF1]

Şu şekilde deneyiniz.

Public Satır
Sub Aktar()
Set s1 = Sheets(1)
Set s2 = Sheets("Depo")
Application.EnableEvents = False

a = InputBox("1. Kriter İsmini Giriniz")
b = InputBox("2. Kriter İsmini Giriniz")

If s1.Cells(Satır, 2).Value = a And s1.Cells(Satır, 4).Value = b Or _
    s1.Cells(Satır, 4).Value = a And s1.Cells(Satır, 2).Value = b Then
    If s1.Cells(Satır, 6).Value <> "" Then
        son = s2.[I65536].End(3).Row + 1
        If son < 8 Then son = 8

        With s2
            .Cells(son, 9).Value = s1.Cells(Satır, 1).Value
            .Cells(son, 11).Value = s1.Cells(Satır, 2).Value
            .Cells(son, 10).Value = s1.Cells(Satır, 3).Value
            .Cells(son, 17).Value = s1.Cells(Satır, 4).Value
            .Cells(son, 12).Value = s1.Cells(Satır, 6).Value
            .Cells(son, 13).Value = s1.Cells(Satır, 7).Value
            .Cells(son, 15).Value = s1.Cells(Satır, 8).Value
            .Cells(son, 16).Value = s1.Cells(Satır, 9).Value
            .Cells(son, 14).Value = s1.Cells(Satır, 10).Value
        End With
    End If
End If
Application.EnableEvents = True
End Sub

 

[ahzola]

Sayın ExcelF1

alakanız için çok teşekkür ederim.

Lakin şöyle bir durum var. Şimdi

kitapta onlarca sayfa olacak. ve bu sayfaların herbirinin ismi farklı olacak.
sizin yazdığınız makroda "Depo" olarak isim atanmış. Bu şekilde olursa sanırım olmaz.

Bana sadece aşğıdaki makroyu aynı kitabın farklı sayfasında kullanmak üzere ayarlayabilirseniz yeterli olacaktır.
2. sayfada 17 18 ve 19 mesajlar sanırım size yardımcı olacaktır.

saygılarımla.



Public Satır
Sub Aktar()
Set s1 = Sheets(1)
Set s2 = Sheets("Depo")
Application.EnableEvents = False

If s1.Cells(Satır, 2).Value = "Karanfil" And s1.Cells(Satır, 4).Value = "Gül" Or _
s1.Cells(Satır, 4).Value = "Karanfil" And s1.Cells(Satır, 2).Value = "Gül" Then
If s1.Cells(Satır, 6).Value <> "" Then
son = s2.[I65536].End(3).Row + 1
If son < 8 Then son = 8

With s2
.Cells(son, 9).Value = s1.Cells(Satır, 1).Value
.Cells(son, 11).Value = s1.Cells(Satır, 2).Value
.Cells(son, 10).Value = s1.Cells(Satır, 3).Value
.Cells(son, 17).Value = s1.Cells(Satır, 4).Value
.Cells(son, 12).Value = s1.Cells(Satır, 6).Value
.Cells(son, 13).Value = s1.Cells(Satır, 7).Value
.Cells(son, 15).Value = s1.Cells(Satır, 8).Value
.Cells(son, 16).Value = s1.Cells(Satır, 9).Value
.Cells(son, 14).Value = s1.Cells(Satır, 10).Value
End With
End If
End If
Application.EnableEvents = True
End Sub

 

[ExcelF1]

Bakın ne istediğinizi tam olarak ifade edemediğinizi düşünüyorum. En azından eklemiş olduğunuz örnek dosya ile.

Benim anladığım;
Örneğin, 10 sayfanız var. 1 tane de Depo sayfası diyelim. Siz bu 10 sayfada belirttiğiniz "Karanfil-Gül" benzeri bir aramayı yapmak istiyorsunuz. Hangi sayfada bulursa, oradaki bilgiyi Depo sayfasına kopyalamasını istiyorsunuz. Akabinde yine 10 sayfada başka bir arama yapmak istiyorsunuz ve yine bulunan verinin Depo sayfasında, son kayıt yapılan verinin altına kopyalanmasını istiyorsunuz.

Birde aynı sayfada Karanfil-Gül eşleşmesinden 2 veya daha fazla bulursa ne yapılacak ? Tüm bulunanlar mı aktarılacak ?

Doğru mudur ?

 

[ahzola]

Sayın ExcelF1

İlk olarak depo sayfası makroyu oluştururken kullandığımız bir isim. yani nüans adı herşey olabilir.

bir tane kitabımız olacak. ve bu kitapta onlarca sayfa olacak.
bahsettiğim onlarca sayfanın hepsi kitabın ilk sayfasının B ve D sütunlarından veri alacak.

depo sayfasını örnek alırsak bu sayfa karanfil ile gül verilerini depolamış x bir sayfa menekşe sümbül verilerini
depolayacak y bir sayfa papatya lale verilerini depolayacak. bu bu şekilde devam edecek.
hepside ilk sayfanın B ve D sütunlarından verilerini alacak.

Evet dediğiniz gibi birden fazla eşleşme olursa aktaracak. Kaç tane olursa olsun aktaracak.

kısaca ; kitapta 2 tür sayfa olacak
birincisi ilk sayfa bu sabit ve bir tane.
ikincisi ise verilerin depolanacağı sayfa bunun
sayısı şuan belli değil yani ne kadar olursa ben o kadar çoğaltacam.
şu anda ilk çoğaltmayı yapamıyorum.
Depo sayfası Karanfil ve Gül eşleşmeleri durumunda o satırdaki verileri depoluyor.
sizlerden isteğim ise bir sayfa daha yapmanız adı x olsun oda Papatya ile Lale verilerini
depolasın tüm olay bu.

umarım bu daha net olmuştur.

saygılarımla.

 

[ExcelF1]

Sayın ahzola,

Yönelttiğiniz soruya uygun örnek bir dosya eklememişsiniz.
Örnek dosya eklerken (Bu tip sorularda) mümkün ise, sayfanızın ilk hali ile 1 adet de olması gereken halini (en azından anlaşılacak kadar) el ile yapmanız, sorularınızda daha isabetli ve tek seferde cevap almanızı kolaylaştıracaktır.

Ben anladığım kadarı ile EK'teki şekilde bir dosya yaptım. Butona basarak sonucu gözlemleyiniz.

Dilerim işinizi görür. Kolay gelsin...

 

[webuyeislemleri]

Bir başka sayafaya yazarken
örnek Sayfa1 ve Sayfa2 A kolonun da ki içinde 5 harfi aynı olanları Sayfa3 yaz nasıl yaparım.

Yukarda örnekte olduğu gibi içinde E kolununda ki kelimeler geçen satırları başka sayfaya aktar.

nasıl yaparım tşk.

 

[apocalyt]

sn webuyeislemleri ayrı ayrı yerlere mesaj yazmak yerine bir örnek dosya ekleyerek sorunuzu sorsanız daha çabuk cevap almanızı sağlıcaktr..

 

[webuyeislemleri]

içeren kayıtları kopyala

sn webuyeislemleri ayrı ayrı yerlere mesaj yazmak yerine bir örnek dosya ekleyerek sorunuzu sorsanız daha çabuk cevap almanızı sağlıcaktr..

Örnek ekte dir. TŞK.