ekli dosyada aşağıda kodum mevcut.
kısaca anlatmam gerekirse Tesis adlı sheet içerisinde F sütununda tıkladığım bir hücre olunca o hücrenin bulunduğu satırda bulunan bazı verileri Elektrik adlı sheet altına gönderiyorum.
şimdi burada şunu yapmak istiyorum. Elektrik sheetinde veri gelince D sütununda yazan il verisine göre H sütununa Firma ismi yazdıracağım
Örneğin D sütununda İstanbul- 34 Avr, Edirne, Tekirdağ, Kırklareli verisi aktarılmışsa H sütununda karşılığına XYZ Elektrik yazsın
D sütununda Bursa- 16, Yalova- 77 yazıyorsa, H sütununda karşılığındaki hücreye TTT Elektrik Yazsın
gibi bu şekilde ben diğer illeri aynı mantıkla yerleştiririm.
Ama burada aşağıda yazdığım kod içerisinde bu istediğim ile göre elektrik firma getirme işini yapacak kodu yazabilir miyiz
Kod: Tümünü seç
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Then
Application.ScreenUpdating = False
'UserForm2.Show 0
'Application .Wait(Now + TimeValue("0:00:01"))
Son = Sayfa2.Range("A1000").End(3).Row + 1
Range("A" & Target.Row).Copy
Sayfa2.Range("A" & Son).PasteSpecial
Range("B" & Target.Row).Copy
Sayfa2.Range("B" & Son).PasteSpecial
Range("C" & Target.Row).Copy
Sayfa2.Range("C" & Son).PasteSpecial
Range("D" & Target.Row).Copy
Sayfa2.Range("D" & Son).PasteSpecial
Range("E" & Target.Row).Copy
Sayfa2.Range("E" & Son).PasteSpecial
Range("G" & Target.Row).Copy
Sayfa2.Range("F" & Son).PasteSpecial
Sayfa2.Range("G" & Son) = Date
Sayfa2.Range("I" & Son) = "Firmaya İletildi"
Sheets("Tesis").Select
'Application.ScreenUpdating = True
'Unloıfad UserForm2
End If
End Sub