özel kopyalama

[turkanet]

merhaba,
b sütununda "@" içeren her hücreyi kendi bir üst satırını kopyalayabilmek için bir yöntem var mı?

şimdiden tşk

 

[Orion1]

Kod ile.Ama üst satırdaki veri silinir.

 

[turkanet]

üstteki satrın silinmesinde herhangi bir sorun yok. hangi kodu kullanabilirim?

 

[Orion1]

üstteki satrın silinmesinde herhangi bir sorun yok. hangi kodu kullanabilirim?

Ne yapacaksınız?Döngüye girip bütün sütunumu tarayacaksınız?yoksa tıklayıncamı yapacaksınız?ne yapacaksınız?.

 

[turkanet]

bütün sütunu tarayacağım

 

[turkanet]

yardımınızı rica ederim

 

[Orion1]

Sub z()
Dim i As Long
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If InStr(1, Cells(i, "B").Value, "@") > 0 Then Cells(i, "B").Copy Cells(i - 1, "B")
Next i
MsgBox "@ karakterleri bir üst satırlara kopyalandı.", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[turkanet]

çok tşk ederim. çok işime yarayacak ve beni büyük bir külfetten kurtardı.

 

[Orion1]

çok tşk ederim. çok işime yarayacak ve beni büyük bir külfetten kurtardı.

Rica ederim.
İyi çalışmalar.

 

[cansuyerlikaya]

evren hocam
bir soruda benim olacak
sayfanın birinden diğerine makro ile bazı bölümleri kopyalayacağım
ama ilk kopyaladığım tablonun ilk satırlarından başlayacak 2. kez başka bir yeri kopyaladığımda üzerine değil ilk boşlıktan itibaren kopyalayacak

mümkün olduğu kadar basit ve kısa makrolar ile cevaplaya bilirseniz sevinirim çünki bu işlem çok tekrarlanacak
örnek dosyayı ekde veriyorum orda daha anlaşılır

cevaplayacağınızı ümit ederek yazdım şimdiden teşekkür ederim

 

[cansuyerlikaya]

Evren bey
yukarıda ki sorumu bugün cevaplaya bilmeniz mümkün mü
en azından bir fiker verseniz veya basit bir örneğini yeterli

Makroları öğreninsem soruların çoğunu ben cevaplayacağım üç gündür hiç cevap yazan olmadı

 

[parsley2]

yanıt

ekli dosyayı incele.
A sınıfının çiftleri ve B sınıfının teklerinin hangi sırada olağının anlaşılamamı nedeniyle, ilk iki butonu yaptım. diğerlerini buna göre yapabilirsin. yapamazsan yine de yardımcı olurum.

 

[cansuyerlikaya]

çok teşekkür ederim evediğince inceleyeceğim olmasa bile elinize sağlık
nede olsa yine yardımcı olurum demişsiniz bende çok uğraşmıştım yapamadım bir türlü
tekrar teşekkürler.

 

[cansuyerlikaya]

Parsley2 teşekkür ederim sanırım olmuş ama çoğaltırken sorun çıkarsa yardımınıza müracaat edeceğim

iyi çalışmlar.....

 

[cansuyerlikaya]

1A ve 1B sınıfları için yaptım ama 1C de sorun oldu
yaptığım şekli ile dosyayı ekliyorum

hatamı söylerseniz ben tüm sınıflar uygularım
teşekkürler zaman ayırdığınız için

 

[cansuyerlikaya]

Arkadaşlar bunu bugün cevaplaya bilecek olan var mı
sanırım parsley2 yok

 

[parsley2]

yanıt2

sanırım plan sayfasında 2 satır silmişsiniz bu yüzden yanlış aktarım yapmış. buton lardaki tek, ve çift makroların aynılarını sadece 2. sınıfı başlangıc satır numaralırını değiştirerek çoğaltmalısınız. ben 2. sınıfın da tek ve çiftlerini ve 1. sınıf aktarımına kadar düzelttim. yapmaya çalışın yine de yardımcı olmaya çalışırım. Boş zamanlarımda.

 

[cansuyerlikaya]

teşekkür ediyorum
siz harikasınız

Programım bitince burdaya ekleyeceğim umarım birço insan faydalanır.

 

[parsley2]

rica ederim. faydalı olabildiysem ne mutlu...

 

[cansuyerlikaya]

selam Parsley2 bey
makroları tüm sınıflara uyguladım sorunsuzca oldu

yalnız ek olarak bir yardım daha isteyeceğim

1.sınıflar Dör şube öncekilere ek olarak bunların tek sıralarının hepsini birden aktaran bir makro yazıla bilir mi?

ben uyarladım ama aralardaki boşluklarla birlikte aktarıyor
boşluklar kaldırılarak nası aktarılır

ayrıntılı soruyu yine ekte gönderiyorum

umarım zamanınızı çok almıyorumdur.

şimdiden teşekkürler iyi çalışmlar