DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba arkadaşlar. Ekte sunduğum dosyada "veri" sayfasında B2,B3,B4,B6 ve B7 hücresine yazdığım yazıyı yazdığım yazıyı "giriş" sayfasındaki ilgili yerlere yazmasını istiyorum. Daha detay bilgi örnektede mevcuttur. teşekkürler.
Option Explicit
Private Sub CommandButton1_Click()
Dim ts, kaplan
If Range("B1") = Empty Then
MsgBox "Sıra No Girmediniz"
Range("B1").Select
End If
If Range("B2") = Empty Then
MsgBox "Kuyu No Girmediniz"
Range("B2").Select
End If
If Range("B3") = Empty Then
MsgBox "Seri No Girmediniz"
Range("B3").Select
End If
If Range("B4") = Empty Then
MsgBox "Başlangıç Tarihi Girmediniz"
Range("B4").Select
End If
If Range("B5") = Empty Then
MsgBox "Başlangıç Endeksi Girmediniz"
Range("B5").Select
End If
If Range("B6") = Empty Then
MsgBox "Bitiş Tarihi Girmediniz"
Range("B6").Select
End If
If Range("B7") = Empty Then
MsgBox "Bitiş Endeksi Girmediniz"
Range("B7").Select
End If
ts = Sheets("Giriş").Range("A65536").End(xlUp).Row
kaplan = ts + 1
Sheets("Giriş").Range("A" & kaplan).Value = _
Application.WorksheetFunction.Max(Sheets("Giriş").Range("A:A")) + 1
Sheets("Giriş").Range("B" & kaplan).Value = Range("B2").Text
Sheets("Giriş").Range("C" & kaplan).Value = Range("B3").Text
Sheets("Giriş").Range("D" & kaplan).Value = Range("B4").Text
Sheets("Giriş").Range("E" & kaplan).Value = Range("B5").Text
Sheets("Giriş").Range("F" & kaplan).Value = Range("B6").Text
Sheets("Giriş").Range("G" & kaplan).Value = Range("B7").Text
Range("B1") = WorksheetFunction.CountA(Sheets("Giriş").Range("A:A"))
End SubZahmetleriniz için çok teşekkür ederim. Lakin ben bu dediklerinizi hiç bilmiyorum. Eğer bu yazdıklarınızı ekli örnekte uygulayıp bana gönderirseniz çok sevinirim.
İhsan bey tam istediğim gibi olmuş, ellerinize, emeklerinize sağlık. Başarılar dilerim.