Soru istediğim sütunun son hücresine gitme

[idealimsin]

istediğim sütunun son hücresine nasıl gidebilirim

 

[idealimsin]

Yani henüz işlem görmemiş son satırının istediğim sütununa gitmek istiyorum. Klavye kullanarak , mause kullanarak olmayacak

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Son_Hucreye_Git()
    Dim Sutun As Variant
    
    Sutun = Application.InputBox("Gitmek istediğiniz sütun harfini giriniz.", "Sütun Seçimi")
    
    If Sutun = False Or Sutun = "" Then
        MsgBox "Lütfen sütun bilgisini giriniz.", vbCritical
        Exit Sub
    End If
    
    Cells(Rows.Count, Sutun).End(3).Select
End Sub

 

[idealimsin]

Deneyiniz.

Option Explicit

Sub Son_Hucreye_Git()
    Dim Sutun As Variant

    Sutun = Application.InputBox("Gitmek istediğiniz sütun harfini giriniz.", "Sütun Seçimi")

    If Sutun = False Or Sutun = "" Then
        MsgBox "Lütfen sütun bilgisini giriniz.", vbCritical
        Exit Sub
    End If

    Cells(Rows.Count, Sutun).End(3).Select
End Sub

makronuz çok iyi oldu .ancak ufak bir düzeltme olabilirmi.? makro sütunun son dolu hücresine gidiyor. benim istediğim ,,sayfanın son satırındaki sütununa gitmesi. ve gittiği hücre dolu hücre değil bir alttaki boş hücre olmalı .ve şöylede bir ilave yapabilirmiyiz.başka bir sayfadan kopyala yaptığım veriyi. bu makronun olduğu excel sayfasında kısayol ile çağırdığım bu makro "Gitmek istediğiniz sütun harfini giriniz." penceresi çıktığında istediğim sütunun harfini yazdığımda hem ilgili sütundaki boş hücreye gidip aynı zamanda hafızadaki veriyi text olarak yapıştırabilirmi.?.yani benim extra istedğim şu: pencereye girdiğim sütun harfini enterlememle birlikte hafızadaki kopyalanmış veriyi text olarak yapıştırmak istiyorum.

 

[Korhan Ayhan]

Örnek dosyanızı paylaşır mısınız?

 

[Korhan Ayhan]

Bir dosya hazırladım.

CTRL+SHIFT+C ile başka sayfadan yada dosyadan kopyalama yapın.

Sonra CTRL+SHIFT+V ile yapıştırma işlemini yapmayı deneyin.

Umarım ihtiyacınızı karşılar.

 

[idealimsin]

Örnek dosyanızı paylaşır mısınız?

 

[idealimsin]

Bir dosya hazırladım.

CTRL+SHIFT+C ile başka sayfadan yada dosyadan kopyalama yapın.

Sonra CTRL+SHIFT+V ile yapıştırma işlemini yapmayı deneyin.

Umarım ihtiyacınızı karşılar.

kopyaladığım veri excel sayfasından değil,web sayfasından kopyalıyorum . ve sütuna yapıştırılan veri de diğer sütunların gerisinde kalmamalı. mesela A20-A40 sütununa yapışmış veriden sonra K sütununu çağırdıysam eğer K41 sütunundan yukarı bir değer üzerine yapışmalı

 

[Korhan Ayhan]

Deneyiniz.

Ben dosyada kısayol olarak CTRL+SHIFT+V tuşlarını atamıştım. Aynı şekilde denedim ve olumlu sonuç aldım.

Option Explicit

Sub Son_Hucreye_Yapistir()
    Dim Sutun As Variant
   
    Sutun = Application.InputBox("Gitmek istediğiniz sütun harfini giriniz.", "Sütun Seçimi")
   
    If Sutun = False Or Sutun = "" Then
        MsgBox "Lütfen sütun bilgisini giriniz.", vbCritical
        Exit Sub
    End If
   
    Cells(Rows.Count, Sutun).End(3)(2, 1).Select
    ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
End Sub

 

[idealimsin]

,
bu şekilde bir hata çıkıyor hem E sütununa gitmesini istediğimde görünen tabloda E2 hücresine gidiyor.istediğim şey diğer işlem görmiş sütunlardan bir alt hücreye gitmesi.yani ctrl+shift+end tuşuna bastığımız gibi son satıra inmesi

 

[Korhan Ayhan]

Eklediğiniz görselde size göre hangi hücre seçilmesi gerekiyor.

 

[idealimsin]

Eklediğiniz görselde size göre hangi hücre seçilmesi gerekiyor.

Görselde baktığımızda diğer sütunlar 22. hücreye kadar dolu hücre var .yani benim E sütununu sectigim de 23. hücre açması gerekiyor

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Son_Hucreye_Yapistir()
    Dim Sutun As Variant, Bul As Range, Son_Satir As Long
    
    On Error GoTo Son
    
    Sutun = Application.InputBox("Gitmek istediğiniz sütun harfini giriniz.", "Sütun Seçimi")
    
    If Sutun = False Or Sutun = "" Then
        MsgBox "Lütfen sütun bilgisini giriniz.", vbCritical
        Exit Sub
    End If
    
    Set Bul = Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, _
    SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
    
    If Not Bul Is Nothing Then
        Son_Satir = Bul.Row + 1
    Else
        Son_Satir = 1
    End If
    
    Cells(Son_Satir, Sutun).Select
    ActiveSheet.PasteSpecial Format:="Metin", Link:=False, DisplayAsIcon:=False
    ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
Son:
End Sub

 

[idealimsin]

verdiğiniz makro tam istediğim gibi oldu. ellerinize sağlık. şöyle bir tablonun yapışmasında fark var.makroda oluşan yapıştırma tablosunda yukardaki resim gibi oluşum oluyor. diğer manual olarak yaptığım ctrl+A ile seçip ctrl+C ile kopyaladığımda ve yapıştırdığımda aşağıdaki resimdeki gibi tablo gibi daha düzgün bir tablo görünümünde oluyor.bu fark neyden kaynaklanıyor.nasıl aşağıdaki resim gibi olabilir.

 

[Korhan Ayhan]

Yapıştırmayı nasıl yapıyorsunuz?

 

[idealimsin]

Yapıştırmayı nasıl yapıyorsunuz?

mause sağ tuş "yalnızca metni koru" ile

 

[Korhan Ayhan]

Bende aşağıdaki komut çıktığı için makroda bunu kullandım.

 

[idealimsin]

Bende aşağıdaki komut çıktığı için makroda bunu kullandım.

Ekli dosyayı görüntüle 220640

makroyu yapıştırma seçeneğini bu kod ile

ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

değiştirdiğimde istediğimi elde ettim yardımlarınız için çok teşekkürler