VBA ile başka bir excel kitabında istediğim sutuna değer yazdırma

[Geomatik94]

Merhaba arkadaşlar iş yerimizde ortak bir dosya var ona kendi bilgisayarımdan bilgi girişi yapmak için bir program yapmaya çalışıyorum.
diyelim ki ortak dosyada A sutununun bir satırında 150 yazıyor.
Ben de kendi excel dosyamdan bir textboxa 150 yazacam ve şunu yapmasını isteyecem.
ortak dosyada 150 yazan satırın 5. sutununa istediğim bir değeri yazmak istiyorum bunu nasıl yapabilirim yardımcı olursanız çok sevinirim.

 

[asi_kral]

Merhaba

Sub agagonder()
Dim YOL As String, KTP1 As Workbook, KTP2 As Workbook
Dim STR As Long
Dim S1 As Worksheet, S2 As Worksheet
YOL = ThisWorkbook.Path & "\"
Set KTP1 = ActiveWorkbook
Set S1 = KTP1.ActiveSheet
Set KTP2 = Workbooks.Open(YOL & "Ortak.xlsx")
Set S2 = KTP2.Sheets("Sayfa1")
With WorksheetFunction
If .CountIf(S2.Range("A:A"), S1.Range("A1")) > 0 Then
STR = .Match(S1.Range("A1"), S2.Range("A:A"), 0)
S2.Cells(STR, 5) = S1.Range("B1")
End If
End With
KTP2.Save: KTP2.Close 0
MsgBox "Ortak Dosyaya Kayıt Yapıldı"
End Sub

Yol ' a ağdaki yol'u yazınız. ( YOL = ThisWorkbook.Path & "\" ( burayı değiştirirek )
Ortak dosyanızın uzantısı ( .xlsx ) olarak ( Set KTP2 = Workbooks.Open(YOL & "Ortak.xlsx") ( buradaki .xlsx'i değişitirerek )
Sayfa adı da ( Sayfa1 ) olarak düşünülmüştür. ( Set S2 = KTP2.Sheets("Sayfa1") ( buradaki Sayfa1'i değiştirerek )

Gerekli değişiklikleri yapabilirsiniz
A1 de yazdığınız değeri arar B1'de ki sonucu 5. Sütuna yazar.

 

[Geomatik94]

Sağolun hocam çok makbule geçti