Kopyalayıp alt satıra(hücreye) geçmek

[rrrccc]

S.a arkadaşlar hayırlı sabahlar sorum şöyleyardımlarınız için teşekkürler)
butona tıklatınca a1 hücresindeki değeri kopyalayıp a2 ye otomatik geçiş yapsın tekrar tıklatınca a2 deki değeri kopyalayıp a3 e geçiş yapsın ve böyle devam etsin
ekteki dosyada belirttim eğer bu işlemi bir kritere göre yapabilirsek çok daha iyi olacak.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Option Compare Text
 
Sub BulAktar()
 
    Dim c As Range, Adr As Variant, sat As Long
 
    Application.ScreenUpdating = False
    Range("A1:A" & Rows.Count).ClearContents
 
    sat = 1
    With Range("E:E")
        Set c = .Find("x", , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                Cells(sat, "A") = Cells(c.Row, "D")
                sat = sat + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[rrrccc]

Ömer kardeşim yardımın için çok teşekkür ederim.
ben sadece tuşa basınca imlecin kopyalayıp bir alta otomatik geçmesini istiyordum. foto ekledim müsaitsen sana zahmet bir bakıversen
tekrar çok sağolasın

 

[rrrccc]

"x olan birinci satırdan noyu kopyalayım "x" olan ikinci satıra geçecek her basmada kopyalayıp bir alta geçecek herhangi bir yere kaydetmesine gerek olmuyor

 

[Husgvarna]

"x olan birinci satırdan noyu kopyalayım "x" olan ikinci satıra geçecek her basmada kopyalayıp bir alta geçecek herhangi bir yere kaydetmesine gerek olmuyor

Ek dosyayı incelermisiniz?

 

[rrrccc]

Husgvarna kardeşim tam istediğim gibi yardımın için çok teşekkür ederim.

 

[Husgvarna]

Husgvarna kardeşim tam istediğim gibi yardımın için çok teşekkür ederim.

Siz sağolun; ama bence bazı eksiklikler var gibi..!

 

[rrrccc]

Sub Oval_Tıklat()

If ActiveCell.Column <> 4 Then
Range("d1").Select
Selection.Copy
Exit Sub
End If
b:
If ActiveCell.Offset(0, 0) = "" Then Exit Sub
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(0, 1) = "x" Then
Selection.Copy
Else
GoTo b
End If
End Sub

Arkadaşlar macroda iki şeyi değiştirmek istedim yapamadım:
1: "x" kriterini istediğimiz sütunda araması için ne yapmalıyız.
2: D1 hücresini "x" olmasa da kopyalıyor bunu nasıl engelleyebiliriz.
teşekkürler

 

[rrrccc]

belge bu şekilde formülün birçok sütuna uygulanması lazım

 

[rrrccc]

Üstatlar yok mu bir çözüm? Sağlık olsun
Hayırlı Akşamlar.

 

[Husgvarna]

belge bu şekilde formülün birçok sütuna uygulanması lazım

Merhaba.
Örnek dosya eklermisiniz?

 

[rrrccc]

İlgili dosyayı ekledim ve açıklamada bulundum. yardımlarınız için teşekkürler

 

[Ömer]

Merhaba,

İstediğiniz ilgili sütunun başındaki butona tıklayınca sadece o satırda işlem görmesi mi?

Birde siz bu kopyalama işlemini neden yapıyorsunuz merak ettim.

 

[rrrccc]

Ömer Hocam easy macro recovery isimli program ile internete veri girişini otamatik yapıyorum. Program farenin hareketlerini kopyalayıp tekrarlıyor. Ben mümkün oldukça tuş takımı ile yapsın istiyorum. Bu yüzden belgede makroyu kısayol tuşu ile çalıştıracağım. sadece kopyalasın ve bir alt satıra(hücreye Geçsin. Örnek dosyadaki makro çalışıyor ben bu makroyu tüm sütunlar için ayrı tuşlara atmak istedim beceremedik yardımcı olsan sana zahmet. sağolasın

 

[rrrccc]

Sub DuluHucreTesti()
If IsEmpty(ActiveCell) Then Exit Sub
top:
MsgBox ActiveCell.Value
ActiveCell.Offset(1, 0).Select
If Not IsEmpty(ActiveCell) Then GoTo top
End Sub
bu makro da aynı işlevi görüyor fakat mesaj kutusunun görünmemesini ve istediğimiz hücreden başlamasını nasıl sağlayabiliriz?

 

[Huseyinkis]

Merhaba istemiş olduğuz işlemi yapmak için başkabir bolumde veri kaydı tutmak gerekir diğer türlü yapmak mumkundur belki ama tam olarak emin değilim size bir ornek dosya yolluyorum incelerseniz belki işleminizi çözebilir.

 

[rrrccc]

Hüseyin kardeşim tarif ettiğin şekilde çalışıyor fakat yapacağım işlem için kullanışlı değil, ayrıca hata veriyor. Teşekkür ederim

 

[Ömer]

Ömer Hocam easy macro recovery isimli program ile internete veri girişini otamatik yapıyorum. Program farenin hareketlerini kopyalayıp tekrarlıyor. Ben mümkün oldukça tuş takımı ile yapsın istiyorum. Bu yüzden belgede makroyu kısayol tuşu ile çalıştıracağım. sadece kopyalasın ve bir alt satıra(hücreye Geçsin. Örnek dosyadaki makro çalışıyor ben bu makroyu tüm sütunlar için ayrı tuşlara atmak istedim beceremedik yardımcı olsan sana zahmet. sağolasın

Eki inceleyiniz.

İstediğiniz bu sanırım.

.

 

[rrrccc]

"x" i değil ona karşılık gelen satırdaki no yu kopyalaması gerekiyordu. ilgilendiğiniz için teşekkür ederim farklı makrolarla çözdüm. Allah razı olsun. Selametle