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 SubDosyayý 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