İlk satırı ,Son satıra kopyala

[k0081]

Merhaba arkadaşlar;

C3 ve D3 den başlayan koordinat verileri bir tabloya girilmekte..
Yapmak istediğim: Son koordinat verisi girildiğinde; diyelim ki C15 ve D15 e,

C15= 125423,32 D15=32656,326 gibi değerleri girdik..(son koordinatlar) bir sonraki satıra yani; C16 ve D16 ya C3 ve D3 deki veriyi bir buton yardımı ile nasıl kopyalatabilirim..? ( C16 ve D16 örnek olarak verilmiştir.. değişkendir..)

 

[Ömer]

Merhaba,

Soru net değil, okuyunca anladığım ile;

Sub SartliKopyala()
 
    Dim son_k As Long
 
    son_k = 15 'son koordinat satırı
 
    If Range("C" & son_k) <> "" And Range("D" & son_k) <> "" Then
        Range("C3:D3").Copy Range("C" & son_k + 1)
    Else
        MsgBox "Son Koordinatlar Girilmemiş"
    End If
 
End Sub

İstediğiniz bu mu?

 

[k0081]

Merhaba,

Soru net değil, okuyunca anladığım ile;

Sub SartliKopyala()
 
    Dim son_k As Long
 
    son_k = 15 'son koordinat satırı *** bu kısım sabit değil... yani 15 olur 16 olur 17 olur vs..***
 
    If Range("C" & son_k) <> "" And Range("D" & son_k) <> "" Then
        Range("C3:D3").Copy Range("C" & son_k + 2)
    Else
        MsgBox "Son Koordinatlar Girilmemiş"
    End If
 
End Sub

İstediğiniz bu mu?

hocam kısmen doğru.. teşekkürler.. sanırım eksik anlattım son_k= 15 demişsiniz ya bu sadece bir örnek.. 15 olabilir 10 olabilir 75 olabilir.. değişken. nokta sayısına göre yani... tabi bu durumda hata mesajı da gerekli olmuyor.. çünkü her zaman son nokta girilmiş oluyor...(hiç nokta girilmediyse hata mesajı gerekebilir..)

 

[Ömer]

Son satırın ne olduğunu nasıl belirleyeceğiz? Yani manuel mi belirliyorsunuz yoksa, son dolu satır neyse ona mı bakacak.

 

[k0081]

Son satırın ne olduğunu nasıl belirleyeceğiz? Yani manuel mi belirliyorsunuz yoksa, son dolu satır neyse ona mı bakacak.

bu şekilde..;

Private Sub CommandButton2_Click()
 Dim son_k As Long
 son_k = Worksheets(ActiveSheet.Name).Range("C65536").End(xlUp).Row
 If Range("C" & son_k) <> "" And Range("D" & son_k) <> "" Then
  Range("C3:D3").Copy Range("C" & son_k + 1)
  Else
  MsgBox "Son Koordinatlar Girilmemiş"
 End If
 End Sub

yardımlarınız için çok teşekkürler.. takıldığım yeri siz söylediniz zaten gerisini de ben tamamladım..