a1 hücresini b1yapıştır c1 gitsin

[imdatsaral]

a1 hücresini b1yapıştır c1'e gitsin

iyiçalşmalar

 

[imdatsaral]

arkadaşlar,

nasıl anlatayım tam bilmiyorum ama dilim döndüğünce bahseteyin

a1 hücresine diyelimki "tamam" yazdım "taman" yazısıda aynı zamanda b1 hücresine yazsın. benim yapmaya çalıştığım makro:

Sub Yapıstır()
If Cells(4, 2) = "" Or Cells(4, 2) = " " Then
MsgBox "Sipariş Tarihini Giriniz..."
End
End If
Range("a1").Select
Selection.Copy
Range("b1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("a1").Cells = ""
Range("d4").Select
End Sub

çalıştırdığımda kopyaladığım alan işaretli kalıyor kopyalama harici başka bir işlem yapıla bilinirmi

 

[donhuan]

Merhabalar;
Sorunuzu anladığım kadarı ile kopyaladığın alan seçili kalıyor demişsiniz.
Macronun en sonuna

Application.CutCopyMode = False

kodunu eklersen kopyaladığın alan seçili kalmaz.
Kopyalama harici bir işlem yapılabilirmi demişsin;Biraz daha açıklarmısın.Mesala ne yapmak istiyosun?
Kolay gelsin


:arkadas:

 

[Serpily]

Sizi yanlış anlamadımsa a1 hüzresinde yazanı b1 aktarıp a1 boşaltmak istiyorsunuz. if kısmı atlayarak yazıyorum.

Range("b1") = Range("a1")
Range("a1") = ""

yeterli gibi görünüyor. Bir deneyin isterseniz.

 

[yakup7904]

Bu kodları ben denedim sonuç soru sahibinin sonucu ile aynı mı diye.. Ama Galiba arkadaş hücre yapıştırmakla meşgul... Yoksa hücreler yapıştı da ayırmaya mı çalışıyorsunuz. Moderatörden isteğim soru başlığı değiştirilmesi ; arayan daha kolay bulur... Excel terminolojisine uygun ifadeler kullnılmalı diye düşünüyorum...

 

[BeyazGölge]

Arkadaşlar benim anladığım kadarıyla :

A1 ' e mesaj yazdığı zaman B1 'e kopyalamasını ve C1 'rin seçilmesini istiyor.

 

[xxrt]

Siz yanlış anlıyorsunuz.

 

[xxrt]

Sayın imdatsaral sorularınızı sorarken uygulama örneğinizi aynen verin.Tamam kelimesinden başka anlam ,

MsgBox "Sipariş Tarihini Giriniz..."

kodundan başka anlam çıkarıyoruz.Burda rahat olun çekinecek birşey yok.Amacımız,amacınızdır.Ã?ğrenmek,Ã?ğretmek..Bakın.Ben size Þöyle bir örnek hazırladım..
Sipariş Tarihini girerek kullanıcı TextBox1'e:CommandButtona şu kodları yazın.

Private Sub CommandButton1_Click()
Range("A1").Select
ActiveCell.Formula = TextBox2
End Sub

Dosyayı yollıyorum..Herşeyin bir ilk var dimi..

 

[imdatsaral]

arkadaşlar cevaplar için teşekkür ederim

ben şu şekilde düzenledim

Sub Yapıstır()
If Cells(4, 2) = "" Or Cells(4, 2) = " " Then MsgBox "Sipariş Tarihini Giriniz...": Exit Sub
[a1].Value = [b1].Value
Range("a1").Cells = ""
Range("d4").Select
End Sub

yardımcı olan arkadaşlara birkez daha teşekkür ederim

iyi çalışmalar