satırları 3 er 3 er seçmek

[ankara34]

selamlar arkadaşlar

makro satırları tek tek seçiyor
3 er 3 er nasıl seçebiliriz.

örnek dosya ekledim.

yardımlarınızı bekliyorum


mutlu pazarlar ..

forum_ders.xlsm dosyasını indir - download

forum_ders.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Necdet]

Merhaba,
Aşağıdaki kodları kendinize uyarlayınız.

Public Sub deneme()

Dim i As Long

For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 3
    MsgBox Range("A" & i & ":A" & i + 2).Address
Next i

End Sub

 

[ankara34]

Merhaba,
Aşağıdaki kodları kendinize uyarlayınız.

Public Sub deneme()

Dim i As Long

For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 3
    MsgBox Range("A" & i & ":A" & i + 2).Address
Next i

End Sub

Necdet bey yapamadım


alttakı gıbı run time hatası verdi

ban yapamadım yani , ne yapmalıyım ?

hata.png dosyasını indir - download

hata.png dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Necdet]

Merhaba,
Sanırım siz 3 değeri birleştirmek istiyorsunuz.
Sizin kodlarınızda değişiklik yaptım.
Umarım doğru anlamışımdır.

Sub TW()

ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home"
Application.Wait (Now + TimeValue("00:00:05"))

For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 3

    twit = Range("A" & i) & " " & _
           Range("A" & i + 1) & " " & _
           Range("A" & i + 2)
    
    Call SendKeys("n", True)
    Application.Wait (Now + TimeValue("00:00:03"))
    
    Call SendKeys(twit, True)
    Application.Wait (Now + TimeValue("00:00:03"))
    
    Call SendKeys("^+~", True)
    Application.Wait (Now + TimeValue("00:00:03"))

Next

End Sub

 

[ankara34]

Merhaba,
Sanırım siz 3 değeri birleştirmek istiyorsunuz.
Sizin kodlarınızda değişiklik yaptım.
Umarım doğru anlamışımdır.

Sub TW()

ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home"
Application.Wait (Now + TimeValue("00:00:05"))

For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 3

    twit = Range("A" & i) & " " & _
           Range("A" & i + 1) & " " & _
           Range("A" & i + 2)
  
    Call SendKeys("n", True)
    Application.Wait (Now + TimeValue("00:00:03"))
  
    Call SendKeys(twit, True)
    Application.Wait (Now + TimeValue("00:00:03"))
  
    Call SendKeys("^+~", True)
    Application.Wait (Now + TimeValue("00:00:03"))

Next

End Sub

Necdet bey , bu şekilde parça parça twitıra atıyor, zaman faktoru oldugu için sıralama karışabılıyor,

twit = Range("A" & i) & " " & _
Range("A" & i + 1) & " " & _
Range("A" & i + 2)

yukarda yazdıgınız kısmı tek seferde 3 satırı bırden seçme şansımız olamaz mı ?

ilginiz için teşekkur ederim..

 

[Necdet]

Ne yapmak istediğinizi tam olarak anlamadım.
Örnekler misiniz?
Örneğin A1 hücresi : Ahmet
A2 hücresi : Mehmet
A3 hücresi : Ayşe ise
bu durumda atacağınız twit değeri ne olmalı?

 

[ankara34]

Ne yapmak istediğinizi tam olarak anlamadım.
Örnekler misiniz?
Örneğin A1 hücresi : Ahmet
A2 hücresi : Mehmet
A3 hücresi : Ayşe ise
bu durumda atacağınız twit değeri ne olmalı?

Necdet Bey ,

sizin gönderdiğinizde
esasında sonuç aynı , yanlız malumunuz işin içine saniyeler girince
A1 i sonra A2 yi en son A3 ü , teker teker kopyalıyor,
ör: A1 VE A2 yi twite kopyalıyor A3 ü kopyalamadan twiti gönderiyor.

A1 ,A2 VE A3 hücrelerini aynı anda tek seferde kopyalama şansımız var mı ?

sonuçta her iki durumda da twit değerleri aynı oluyor

 

[ankara34]

hocam soru

Ne yapmak istediğinizi tam olarak anlamadım.
Örnekler misiniz?
Örneğin A1 hücresi : Ahmet
A2 hücresi : Mehmet
A3 hücresi : Ayşe ise
bu durumda atacağınız twit değeri ne olmalı?

Necdet bey sorun çözüldü elinize sağlık..

iyi pazarlar dilerim..

 

[Necdet]

hocam soru



Necdet bey sorun çözüldü elinize sağlık..

iyi pazarlar dilerim..

Merhaba,
Nasıl çözüldüğünü paylaşırsanız konuya ilgi duyan arkadaşlarımız da yararlanmış olur.

 

[ankara34]

Merhaba,
Nasıl çözüldüğünü paylaşırsanız konuya ilgi duyan arkadaşlarımız da yararlanmış olur.

Necdet bey mesajı geç gördüm

dediğiniz gibi sonuçlarıda paylaşmamız lazım

ben bu forumdan çok istifade ettim sizin nezdinizde tüm üstatlara teşekkür ederim.

hücreleri tek tek copy-paste yaptığımızda sıralama karışıyor ,

copy-paste yapacağım yeri alan olarak tanımladıgımda sıralama karışmıyor ve karışıklık olmuyor.