Access SQL   ›   MS SQL SERVER & DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   MICROSOFT OFFICE PROGRAMLARI   ›   EXCEL   ›   EXCEL SORULARI   ›   Seçilen satırı Aktar ve Sil

Seçilen satırı Aktar ve Sil
ozkovlu29
Aktif Üye 40-100

*
Kayıt Tarihi: 11.05.2015
Toplam 34 konu açtı.
Toplam 63 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 0
#1
31-01-2017, 19:07
Merhabalar;
Seçmiş olduğum satırı Farklı bir sekmeye aktarıp, Aktarılan satırı silmek istiyorum. Elimde aşağıdaki kod var, Fakat burada aktarmak istediğim sekmenin taranıp sondaki boş hücreye kayıt yapmasını;
Birde Renklendirmiş olduğum satır ve sütun ve hücreden;
Benim istediğim satır aralığı(B:T) ve sütunun da başlığının reklendirilmesini nasıl yapabilirim.
Dosya ektedir.
Saygılarımla....
Visual Basic
  1. Sub AktarVeSil()
  2. '
  3. ActiveCell.Rows("1:1").EntireRow.Select
  4. Selection.Cut
  5. Sheets("MemSil").Select
  6. ActiveWindow.SmallScroll Down:=-6
  7. ActiveCell.Rows("1:1").EntireRow.Select
  8. ActiveSheet.Paste
  9. Sheets("Memur").Select
  10. Selection.Delete Shift:=xlUp
  11. End Sub



Visual Basic
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  2. Cells.Interior.ColorIndex = xlColorIndexNone
  3. ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
  4. ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
  5. ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
  6. End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:
EminA
Önemli Üye 300-400

*
Kayıt Tarihi: 30.04.2013
Toplam 41 konu açtı.
Toplam 387 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#2
04-02-2017, 01:57 (En son düzenleme: 04-02-2017, 02:03 EminA.)
Sayın ozkovlu29, son hücreyi bulmak için aşağıdaki kodu kullanabilirsiniz.Umarım işinize yarar.
Birde Renklendirmiş olduğum satır ve sütun ve hücreden;
Benim istediğim satır aralığı(B:T) ve sütunun da başlığının reklendirilmesini nasıl yapabilirim. Kısmını tam anlamadım bir örnek verebilir misiniz. Kolay gelsin.

Sheets("sayfa adi").Select
DEG = Cells(65536, "sütun harfi (A,C gibi)").End(3).Row + 1
Cells(DEG, "sütun harfi (A,C gibi)").Select



  Bul
  Alıntı
Bu mesajı beğenenler:
ozkovlu29
Aktif Üye 40-100

*
Kayıt Tarihi: 11.05.2015
Toplam 34 konu açtı.
Toplam 63 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 0
#3
07-02-2017, 21:08
Merhabalar emin bey,
Gönderdiğiniz kod işime yaradı. Burada birde Silinecek personeli mesaj verdirmek istiyorum.
Visual Basic
  1. MsgBox "c1" & "Personeli aktamak istediğinizden eminmisiniz? ", vbYesNoCancel


seçmiş olduğum kişinin adı ve soyadını nasıl mesajda gösterebilirim.
Saygılarımla...



  Bul
  Alıntı
Bu mesajı beğenenler:
ozkovlu29
Aktif Üye 40-100

*
Kayıt Tarihi: 11.05.2015
Toplam 34 konu açtı.
Toplam 63 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 0
#4
07-02-2017, 21:20
Visual Basic
  1. Sub YeniAktar()
  2.  
  3. secim = ActiveCell.Value
  4.     ActiveCell.Rows("1:1").EntireRow.Select
  5.     MsgBox secim & " Aktarıldıktan sonra Silinecektir. Onaylıyormusunuz?", vbOKCancel
  6.     Selection.Cut
  7.     Sheets("MemSil").Select
  8. DEG = Cells(65536, "C").End(3).Row + 1
  9. Cells(DEG, "C").Select
  10.     ActiveCell.Rows("1:1").EntireRow.Select
  11.     ActiveSheet.Paste
  12.     Sheets("Memur").Select
  13.     Selection.Delete Shift:=xlUp
  14.     Sheets("MemSil").Select
  15.  
  16. End Sub



ADI VE SOYADINI NASIL BİRLEŞTİREBİLİRİM.



  Bul
  Alıntı
Bu mesajı beğenenler:
ozkovlu29
Aktif Üye 40-100

*
Kayıt Tarihi: 11.05.2015
Toplam 34 konu açtı.
Toplam 63 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 0
#5
07-02-2017, 22:00
Visual Basic
  1. secim = ActiveCell.Value & ActiveCell.Offset(0, 1).Value 'Aktif hücrenin sağındakini seçer.



Bu şekilde hallettim.



  Bul
  Alıntı
Bu mesajı beğenenler:
EminA
Önemli Üye 300-400

*
Kayıt Tarihi: 30.04.2013
Toplam 41 konu açtı.
Toplam 387 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 1
#6
07-02-2017, 22:11
Kusuruma bakmayın mesajları takip edemiyorum yoğunluktan. Hallettiğinize sevindim. Kolay gelsin.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Süz Sayfa 2 Ye Aktar Makrosu conquerora 2 649 23-12-2019, 13:21
Son Mesaj: conquerora
  Çif satırlı hücrelerin verilerini aktar ozkovlu29 4 922 28-06-2018, 09:38
Son Mesaj: ozkovlu29
  Sayfalar Arası Veri Aktar ve Çek ozkovlu29 0 1.014 10-02-2017, 20:16
Son Mesaj: ozkovlu29

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi