yeni sutun açıp hücreden belirli kısmı alma

[mahmyt]

üstadlarım merhaba;
kısaca sormak gerekirse açılan e sütununa d sütunundan soldan 16 hane olan fatura numaralarını nasıl getirebilirim.
yardımlarınız için şimdiden teşekkür ederim


Sub sutunEkle()
Dim ihracatVeri, L As Variant
Dim ihracatSayisi As Variant

ihracatVeri = Cells(Rows.Count, "a").End(xlUp).Row


Range("e:e").EntireColumn.Insert

For Each ihracatVeri In Range("a6;a999")
If ihracatVeri.Value > 0 Then
Range("e" & ihracatVeri).Value = Left(Range("d" & ihracatVeri), 16).Value
Else
End If

Next
End Sub

 

[YUSUF44]

Dim ihracatVeri as Range

For Each ihracatVeri In Range("D6;D999")
If ihracatVeri.Value > 0 Then
ihracatVeri.offset(0,1) = Left(ihracatVeri, 16).Value
End If

Şeklinde deneyin.

Doğrusu:

Dim ihracatVeri as Range

For Each ihracatVeri In Range("D6:D999")
If ihracatVeri.Value > 0 Then
ihracatVeri.offset(0,1) = Left(ihracatVeri, 16).Value
End If

 

[mahmyt]

Yusuf44 Bey, geri dönüşünüz için teşekkür ederim.
aşağıdaki koda göre E Sütunundan 1 satır açıyor ama D Sütunundan veri alma işlemini gerçekleştirmiyor.

 

[YUSUF44]

D1:D999 olacağına D1;999 olmuş, onu düzeltip deneyin. Gece telefondan yazmıştım, dikkat etmemişim.

 

[mahmyt]

yusuf bey object hatası nedir peki.

 

[YUSUF44]

Nesne yok diyor ama hangi nesne için dediğini bilmek lazım. Kodları bir modüle taşıdıktan sonra çalıştırın, hata verince Debug deyin ve nerde hata verdiğini inceleyin.

 

[mahmyt]

debug diyince bu kısma geliyor ama

 

[YUSUF44]

Dosyayı bu haliyle paylaşır mısınız? (Özel verileri değiştirebilirsiniz)

 

[mahmyt]

yusuf bey
ihracatVeri.offset(0,1) = Left(ihracatVeri, 16).Value kodu kısmında
left().value yerine
ihracatVeri.offset(0,1) = Left(ihracatVeri, 16) yazınca kod çalışmıştır.

yardımlarınız için teşekkürler hayırlı cumalar dilerim