kopyala yapıştır

[mustafa_057]

excell dosyam. sevk ve sevk liste sayfasından oluşuyor. sevk sayfasında de bulunan hasta bilgileri bulunan y3,y4,y5,y6,y7 hücreleri sırasıyla sevk listesinde a2,b2,c2,d2.e2 hücrelerine kopyalıyorum. fakat. yeni bir sevk yazdığımda bunların üzerine kopyalıyor. 1 alt satıra geçip kopyalama yapamıyorum. yani a3 b3 c3 d3 e3 yazmıyor.


kısa mantıkla hangi tarihte kimler sevk edilmiş onların bilgilerinin listesinin kaydedilmesi. Yardımlar için teşekkür ediyorum.

 

[yanginci34]

örnek dosyanızı yükleyin daha kolay yardımcı olunur

 

[mustafa_057]

örnek dosyanızı yükleyin daha kolay yardımcı olunur

Altın üyelim yok malesef

 

[yanginci34]

https://dosya.co/ gibi sitelerden yükleyip link paylaşabilirsiniz.

 

[mustafa_057]

https://dosya.co/ gibi sitelerden yükleyip link paylaşabilirsiniz.

İndir 2023 sevk liste

Dosyayı indir 2023 sevk liste

dosya.co

 

[DoğanD]

Merhaba,

Aşağıdaki kodu boş bir modüle yapıştırıp butona aktarabilirsiniz.

Sub Kaydet()
If WorksheetFunction.CountIf(Sayfa7.Range("B:B"), Sayfa6.Range("Y4").Value) > 0 Then
MsgBox Sayfa6.Range("Y4").Value & " TC Kimlik Numaralı " & Sayfa6.Range("Y5").Value & " için zaten kayıt var"
Exit Sub
End If
Dim ss As Integer
ss = Sayfa7.Range("A" & Rows.Count).End(xlUp).Row + 1
Sayfa7.Cells(ss, 1) = Sayfa6.Range("Y3").Value
Sayfa7.Cells(ss, 2) = Sayfa6.Range("Y4").Value
Sayfa7.Cells(ss, 3) = Sayfa6.Range("Y5").Value
Sayfa7.Cells(ss, 4) = Sayfa6.Range("Y6").Value
End Sub

 

[mustafa_057]

Merhaba,

Aşağıdaki kodu boş bir modüle yapıştırıp butona aktarabilirsiniz.

Sub Kaydet()
If WorksheetFunction.CountIf(Sayfa7.Range("B:B"), Sayfa6.Range("Y4").Value) > 0 Then
MsgBox Sayfa6.Range("Y4").Value & " TC Kimlik Numaralı " & Sayfa6.Range("Y5").Value & " için zaten kayıt var"
Exit Sub
End If
Dim ss As Integer
ss = Sayfa7.Range("A" & Rows.Count).End(xlUp).Row + 1
Sayfa7.Cells(ss, 1) = Sayfa6.Range("Y3").Value
Sayfa7.Cells(ss, 2) = Sayfa6.Range("Y4").Value
Sayfa7.Cells(ss, 3) = Sayfa6.Range("Y5").Value
Sayfa7.Cells(ss, 4) = Sayfa6.Range("Y6").Value
End Sub

Çok Tesekkürler. ben daha önce yapmıştım farklı formatta kayboldu değer vermeden kopyala yapıştır yapıyordu.malum unuttuk kod yazmayalı10 yıl oldu. yaşta geçti. mesaj bölümünü sildim. çünkü aynı kişi tekrar sev için gelebiliyor. o yüzden kaydetmiyor.