Hücre seçme sorunu

[x2q59]

Uzun bir listem var elimde belirsiz aralıklarla 2 şer boşlukla ilerliyor

ali
ayşe
Fatma
Mehmet


bekir
hasan


olmuyor
olacak
olmadı
hadi bakalım

Gibi Bu verileri bir sonrakine kadar sectirerek 2 sağ öteleme yaptırarak. yatay yapıştırıyordum. Fakat şuan makro çalışmıyor listenin içindeki boşluğa kadar inmesi gerekirken listenin en sonuna iniyor.

Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("a65535").End(xlUp).Offset(0, 2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("a65535").End(xlUp).Offset(3, 0).Select

Kullandığım Makro bu şekilde. Yardımcı olabilirseniz sevinirim.

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Seçilen alınan son dolu hücresinin yanına yapıştırmak için,

Sub deneme()
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
[COLOR=Red]Range("A1").End(xlDown).Offset(0, 2).Select[/COLOR]
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("a65535").End(xlUp).Offset(3, 0).Select
End Sub

Seçilen alanın ilk boş hücresinin yanına yapıştırmak için.

Sub deneme()
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("A1").End(xlDown).Offset(1, 2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("a65535").End(xlUp).Offset(3, 0).Select
End Sub

 

[x2q59]

Teşekkür ederim olmadı ama Klavyeye Macro atayarak halletim. Sorunu.

 

[bursa016]

konu açamıyorum. onun için buradan yazdım. yardımcı olursanız sevinirim.
2 ayrı hücredeki sayıları toplama ve çıkarma işlemi yapmak istiyorum. ama toplama çıkarma değeri yoksa formülün olduğu yere sıfır olarak gelmesini istiyorum. mesela bi hücrede 1000 var diğer hücrede 10 var diyelim. formüllü olan yer 10, sıfırsa sıfır gelsin. 1000+10= 1000
1000+0=0 şeklinde olmasını istiyorum

 

[parametre]

konu açamıyorum. onun için buradan yazdım. yardımcı olursanız sevinirim.
2 ayrı hücredeki sayıları toplama ve çıkarma işlemi yapmak istiyorum. ama toplama çıkarma değeri yoksa formülün olduğu yere sıfır olarak gelmesini istiyorum. mesela bi hücrede 1000 var diğer hücrede 10 var diyelim. formüllü olan yer 10, sıfırsa sıfır gelsin. 1000+10= 1000
1000+0=0 şeklinde olmasını istiyorum

işlemlerinin a1 b1 sonucunu c1 aldıgını varsayalım a1 1000 olsun b1 10 olsun

c1 e bunu yazınız istediginiz hucrelere uygulayınız

=EĞER(VE(A1>0;B1=10);A1;B1)

 

[bursa016]

=EĞER(A1;B1;"0") formülünü kullanarak çözdüm. ilginiz için teşekkür ederim.