excel hücresinden line silmek

[hutame]

makro kullanarak excel hucresinden ( söz gelimi A1 ) bir line silmek istiyorum.

line eklemek için:

range("A1") = Range("a1").value & vbnewline
range("A1")  = Replace(Range("A1"), Chr (13), "" )

kodunu kullaniyorum bazı durumlarda satır silmem de gerekebiliyor. bu durumda nasil bir kodla olaya müdahale edebilirim? Yardımlarınız için şimdiden teşekkürkler

Not: Dosya ekleyemiyorum. Yetki ile ilgili problem var

 

[dEdE]

Merhaba,
Birinci satırı silmek için;

Rows("1:1").Delete Shift:=xlUp

Hoşçakalın.

 

[hutame]

Sn dEdE,
Yukarida yazmis olduğunuz kod A1 hücresinde var olan bilgileri de siliyor yanilmiyorsam, ben sadece line'i silmek istiyorum bu konuda da yardimlarinizi esirgemezseniz sevinirim.

iyi günler iyi çalışmalar

 

[dEdE]

Yukarida yazmis olduğunuz kod A1 hücresinde var olan bilgileri de siliyor yanilmiyorsam, ben sadece line'i silmek istiyorum

Merhaba,

Evet bu kod birinci satırı içindeki verilerle beraber siler. Türkçe excel kullanıyorsunuz. Şu line konusunu bir açıklığa kavuşturalım.

Line sözcüğü;çizgi, hiza, hat, sıra, halat, satır, dize, kuyruk, kablo, bilgi, yöntem, işkolu, çizmek, çizgi çizmek, kırıştırmak, astarlamak, kaplamak, doldurmak gibi anlamlarda kullanılmaktadır.

Ben satır olarak aldım ve kodu ona göre yazdım. Ne demek istediğinizi ya Türkçe olarak yazın ya da örnek dosyanızı gönderin bakalım.

Hoşçakalın.

 

[hutame]

Anladım evet tanımlamamda anlam karmaşası oluşmuş sanırım. İzahında zorlandığım problemin daha iyi anlaşılması için gerekli olan dosyalar ektedir, yardımlarınız ve ilginiz için tekrar teşekkürler.

örnek dosya

 

[dEdE]

Merhaba,
Şimdi anladım. Bunun için aşağıdaki kodu kullanabilirsiniz. Ancak mavi ile işaretlediğim kısmı kendinize göre değiştirmelisiniz. İlgili nesnenin adını nesneyi aktif yaptıktan sonra formül çubuğunun en solundaki ad kutusunda görebilirsiniz.
Hoşçakalın.

 ActiveSheet.Shapes("[COLOR="Blue"]Oval 5[/COLOR]").Delete

 

[hutame]

teşekkürler ilk fırsatta deniycem problemle karşılaşırsam yazarım.
Kolay gelsin, iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ALT_ENTER_SİL()
    If Right(Range("A1"), 1) = Chr(10) Then
    Range("A1") = Mid(Range("A1"), 1, Len(Range("A1")) - 1)
    End If
End Sub

 

[dEdE]

Merhaba,
Yukarıdaki resme bakarak oradaki oval şekli silmek istediğinizi zannettim. Kodu da ona göre yazdım.
Ne istediğinizi ancak sayın Korhan Ayhan'ın kodlarını görünce anladım.
Sayın Ayhanın yazdığı kodu deneyiniz.
Hoşçakalın.

 

[hutame]

Ziyani yok. O da farklı bir çalışma oldu, sn Aydın'a ve size ayrı ayrı teşekkür ederim,
İyi çalışmalar.