Part of Slepp's Projects — Pastebin — TURL — Imagebin — Filebin
Feedback -- English French German Japanese
Create Upload Newest Tools Donate
Sign In | Create Account

Paste Actions

Download Raw
Embed
pBox URL
Post to Twitter
Remove Paste

Paste Details

Visual Basic Source format, 11 months 1 week old, and 156 hits.

Advertising

dblNames
Wednesday, July 11th, 2012 at 3:13:50am MDT 

  1. Sub dblNames()
  2.  
  3.     Const firstRow As Long = 2
  4.     Const lastRow As Long = 807
  5.     'Dim curr As Long
  6.     'Dim last As Long
  7.     Dim currName As String
  8.  
  9.     curr = 0
  10.  
  11.     For i = firstRow To lastRow
  12.         If (Лист1.Cells(i, 2).Value <> "") Then
  13.             currName = Лист1.Cells(i, 2).Value
  14.         ElseIf (Лист1.Cells(i, 2).Value = "") Then
  15.             Лист1.Cells(i, 2).Value = currName
  16.             Лист1.Cells(i, 2).Font.Color = vbWhite
  17.         End If
  18.     Next i
  19.    
  20. End Sub

Paste Details

Tags: group vba excel filter dblnames

advertising

Update the Post

Either update this post and resubmit it with changes, or make a new post.

You may also comment on this post.

update paste below
details of the post (optional)

Note: Only the paste content is required, though the following information can be useful to others.

Save name / title?

(space separated, optional)



Please note that information posted here will expire by default in one month. If you do not want it to expire, please set the expiry time above. If it is set to expire, web search engines will not be allowed to index it prior to it expiring. Items that are not marked to expire will be indexable by search engines. Be careful with your passwords. All illegal activities will be reported and any information will be handed over to the authorities, so be good.

worth-right
worth-right